AD-A036  203 


UNCLASSIFIED 


COMPUTER  SCIENCES  CORP  FALLS  CHURCH  VA  F/G  9/2 

CSEL  INTERFACE  UPDATES  K-BAND  MICROPROCESSOR  DEMONSTRATION. (U) 

DEC  76  D 0 ALWINE * R A GLICKSMAN*  R G MURRAY  F33615-75-C-1229 


CSC-R-3328-1 


AFAL-TR-76-169 


I 2 

i?>36203 


ADA036203 


CSEL  INTERFACE  UPDATE:  K-BAND  MICROPROCESSOR 
DEMONSTRATION 


COMPUTER  SCIENCES  CORPORATION 
6565  ARLINGTON  BOULEVARD 
FALLS  CHURCH,  VIRGINIA  2201,6 


DECEMBER  1976 


TECHNICAL  REPORT  AFAL-TR-76-169 

FINAL  REPORT  FOR  PERIOD  MARCH  1976  - JUNE  1976 


Approved  for  public  release;  distribution  unlimited 


AIR  FORCE  AVIONICS  LABORATORY 
AIR  FORCE  WRIGHT  AERONAUTICAL  LABORATORIES 
AIR  FORCE  SYSTEMS  COMMAND 
WRIGHT-PATTERSON  AIR  FORCE  BASE,  OHIO  46433 


NOTICE 


When  Government  drawings,  specifications,  or  other  data  are  used  for  any  purpose 
other  than  in  connection  with  a definitely  related  Government  procurement  operation, 
the  United  States  Government  thereby  incurs  no  responsibility  nor  any  obligation 
whatsoever;  and  the  fact  that  the  government  may  have  formulated,  furnished,  or  in 
any  way  supplied  the  said  drawings,  specifications , or  other  data,  is  not  to  be 
regarded  by  implication  or  otherwise  as  in  any  manner  licensing  the  holder  or  any 
other  person  or  corporation,  or  conveying  any  rights  or  permission  to  manufacture, 
use,  or  sell  any  patented  invention  that  may  in  any  way  be  related  thereto . 


This  report  has  been  reviewed  by  the  Information  Office  (01)  and  Is  releasable 
National  Technical  Information  Service  (NTIS) . At  NTIS,  it  will  be  available  i 
general  public,  including  foreign  nations. 

This  technical  report  has  been  reviewed  and  is  approved  for  publication. 


PAI 


rfcutd!  t b. 

UJL  F.  HUMEL,  1LT,  USAF 


Project  Engineer 


FOR  THE  COMMANDER 


AIR  FORCE  - 21  JANUARY  77  - 150 


SECURITY  CLASSIFICATION  OF  THIS  PAGE  (Whin  Dmf  Enttfd) 


"i >/  REPORT  DOCUMENTATION  PAGE 

V_  REPORTtAiMBER 2.  GOV 

' AFAL^TR-76-169  j 

4 .T|TLE  (and  Subtitle) 

j CSEL  INTERFACE  UPDATE:  K-Band  J 
Microprocessor  Demonstration  _ 


I*.  GOVT  ACCESSION  NO. 


READ  INSTRUCTIONS 

BEFORE  COMPLETING  FORM 

J RECIPIENT'S  CATALOG  NUMBER 


5.  TYPE  OF  'REBOai-A  PERIOD  COVEREO 

y Final  Jtepgjrt. 

I Mar««675  - Jun#«976,  j 


- R-3328-1, 


7. AUTHQR/aI ... 

Douglas  O./Alwine 
Robert  A./Glicksman 


Richard  G.  'Murray 
Charles  F./Pavey 


L 8.  CONTRACT  or  grant  NUMBERr*) 


F33615-75-C-1229 

9 PERFORMING  ORGANIZATION  NAME  ANCrAO!5»ES5  10  AL„E“5frT^.H^JiFf.T'  TA5K 

Computer  Sciences  Corporation  ^ — . ,?  ] 

6565  Arlington  Blvd.  ^ ^2  Joi7o5 

Falls  Church,  VA  22046 ^ ~ • 

II.  CONTROLLING  OFFICE  NAME  AND  ADDRESS  . 'L_S£f  9&3-0*** 

Air  Force  Avionics  Laboratory  (AFAL/AAD)  / / > , Dec«*R***76 

Air  Force  Wright  Aeronautical  Laboratories  ( / /.  ''VT^Tmber  o'f~pages*" 

Air  Force  Systems  Command  ' — -■  1fiq 

Wright-Patterson  Air  Force  Base.  Ohio  45433 i 

"TT  MONITORING  AGENCY  NAME  A ADDRESS^//  different  /rom  Controlling  Of/ice)  15.  SECURITY  CLASS,  (ol  (h te  report) 


‘fp. 


UNCLASSIFIED 


I5«  OECL  ASSIPICATION  ' DOWN  GRADING 
SCHEDULE 


I 16  DISTRIBUTION  STATEMENT  (o I thle  Report ) 


Approved  for  public  release;  distribution  unlimited. 

17.  DISTRIBUTION  STATEMENT  (ot  the  ebetrect  entered  In  Block  20,  if  different  from  Report) 


18.  SUPPLEMENTARY  NOTES 


19  KEY  WORDS  ( Continue  on  reveree  elde  If  necetemry  end  identify  by  block  number > 

1 % 

Microprocessor,  K-Band  Terminal  Simulator,  Simulation,  Software,  Frequency 
Synthesizer,  Doppler,  Frequency  HOP,  MFSK,  Hamlom  Acc.ess  Memory 

20  ABSTRACT  (Continue  orTreveree  aide  II  neceaeery  end  Identity  by  block  number) 

MThe  objective  of  this  demonstration/study  is  to  provide  the  Air  Force  with  basic 
data  and  techniques  for  expanding  the  capabilities  of  the  K-Band  Terminal  Simulator. 
The  current  simulator  consists  of  three  communication  channels,  each  with  several 
real-time  effects  (Doppler  shift,  frequency  hop,  signal  fading,  and  MFSK)  driven  by 
a minicomputer  which  updates  all  of  these  real-time  effects  every  5 milliseconds. 
Expansion  of  the  K-Band  Terminal  Simulator  along  present  lines  would  increase  the 


DD  , :?:m7,  1473  EDITION  OF  I NOV  »5  l»  OBSOLETE 


'/// 


SECURITY  CLASSIFICATION  OF  This  PAGE  fR>**n  Here  Entered i 


URITV  CLASSIFICATION  OF  THIS  PAOtf»Ti«n  D«l.  Enffd) 


burden  on  the  minicomputer  and  therefore  increase  the  basic  5 millisecond  time 
step,  which  may  already  be  too  long  for  some  applications. 

The  results  of  this  study  show  that  an  alternative,  vastly  superior  approach  to 
expansion  of  the  simulator  would  be  to  use  a separate  microprocessor  to  drive  each 
individual  channel.  This  would  relieve  the  main  minicomputer  of  the  fast  real-time 
chores  and  leave  it  with  only  non-time  critical  system  control,  operator  interface, 
and  housekeeping  tasks.  This  approach  would  give  almost  unlimited  expansion 
capability  and  would  allow  reducing  the  basic  time  step  somewhat,  -v 

To  further  assess  the  feasibility  of  this  approach,  a "brassboard"  demonstra- 
tion unit  was  constructed.  This  unit  uses  an  8080  based  microprocessor  system  to 
drive  a frequency  synthesizer  (the  heart  of  a K-Band  Terminal  Simulator  channel) 
in  real-time  from  tables  of  hop,  Doppler  and  MFSK  effects.  These  (tables  are  pre- 
computed by  the  CSEL  minicomputer  from  operator  input  data  in  a manner  similar 
to  that  of  the  existing  K-Band  Terminal  Simulator.  \ 

The  brassboard  demonstration  unit  ran  successfully  with  an  obse^qd  time 
step  of  2.45  milliseconds,  clearly  proving  the  feasibility  of  this  approach.'* Complete 
! results,  along  with  all  hardware  and  software  documentation  are  contained  in  this 
final  report. 
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SECTION  I 
INTRODUCTION 

The  objective  of  this  demonstration/study  is  to  provide  the  Air  Force  with  basic 
data  and  techniques  for  expanding  the  K-Band  Terminal  Simulator.  The  current  K-Band 
Terminal  Simulator  consists  of  three  signal  sources,  each  capable  of  a wide  variety  of 
modulation  types,  to  simulate  a wide  variety  of  transmitters.  All  three  simulated  trans- 
mitters are  driven  in  real-time  by  single  minicomputer  to  simulate  the  effects  of  Doppler 
shift,  frequency  hop,  signal  fade,  and  MFSK  modulation.  In  real  life,  functions  such  as 
Doppler  shift  and  fade  are  continuous.  In  order  to  simulate  these  functions  with  a system 
driven  by  a digital  controller,  it  is  necessary  to  quantize  the  changes  into  discrete  steps. 

In  order  to  have  a valid  simulation,  it  is  necessary  to  make  these  steps  very  small  and 
hence,  they  must  occur  rapidly.  The  present  K-Band  Terminal  Simulator  is  capable  of 
outputting  updated  values  for  the  real-time  effects  every  5 milliseconds.  However, 
because  a single  processor  is  used  to  drive  all  of  the  real-time  effects,  any  expansion 
of  the  system,  either  in  the  number  of  carriers  or  the  number  of  effects  per  carrier, 
will  necessitate  increasing  the  size  of  this  basic  time  step. 

Since  it  appears  that  the  Air  Force  may  have  the  need  to  increase  the  number  of 
simulated  transmitters  and  to  reduce  the  basic  time  step  from  5 milliseconds  to  1 
or  2 milliseconds,  it  becomes  necessary  to  examine  alternative  means  of  controlling 
the  K-Band  Simulator.  The  concept  examined  here  is  to  control  each  transmitter 
simulator  in  real-time  with  its  own  microprocessor,  leaving  the  main  minicomputer 
with  only  non-time  critical  system  control,  operator  interface,  and  housekeeping  tasks. 
This  would  allow  an  almost  unlimited,  modular,  expansion  capability  for  the  K-Band 
Terminal  Simulator,  and  expansion  could  be  accomplished  without  lengthening  the  time 
step. 

The  brassboard  demonstration  system,  described  herein,  can  calculate  new  values 
for  Doppler  shift,  frequency  hop,  and  MFSK,  add  these  to  the  nominal  carrier  frequency 
and  output  an  updated  frequency  to  a frequency  synthesizer  approximately  every  2.45 
milliseconds. 
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SECTION  II 

DESCRIPTION  OF  SYSTEM 

The  brassboard  demonstration  unit  consists  of  a commercial  microprocessor  develop- 
ment system,  programmed  to  accept  standard  files  from  the  CSEL  minicomputer  and  drive 
a frequency  synthesizer  from  these  files  to  simulate  Doppler  shift,  frequency  hop,  and  MFSK. 
The  CSEL  PDP-11/20  was  programmed  to  accept  operator  inputs  from  the  console,  build 
the  files,  and  transfer  them  to  the  microprocessor  memory. 

This  demonstration  system  consists  of  an  INTELLEC  8/MOD  80  microcomputer, 
a Rockland  5100  frequency  synthesizer,  and  a frequency  discriminator  to  aid  in  observing 
the  real-time  effects  on  an  oscilloscope.  Detailed  descriptions  of  this  hardware  can  be 
found  in  Section  IV. 

Values  for  Doppler  shift  are  taken  from  the  table  directly.  Values  for  hop  and  MFSK 
are  picked  pseudorandomly  from  their  respective  tables  by  pseudorandom  codes  generated 
in  software.  These  three  effects  are  added  to  the  nominal  carrier  frequency,  converted 
to  the  proper  format  to  drive  the  frequency  synthesizer,  and  outputted,  demonstrating 
clearly  the  feasibility  of  controlling  the  K-Band  Terminal  Simulator  hardware  with  micro- 
processors. 
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SECTION  III 
RESULTS 

The  microprocessor  was  interfaced  with  the  Rockland  5100  frequency  synthesizer 
and  the  DEC  PDP-11/20.  It  successfully  received  tables  of  Doppler  shift,  hop,  and  MFSK 
from  the  PDP-11/20,  and  was  able  to  drive  the  frequency  synthesizer  in  real-time,  out- 
putting  an  updated  frequency  approximately  every  2.45  milliseconds.  That  is,  a new 
value  was  calculated  for  each  of  the  parameters  of  Doppler  shift,  MFSK,  and  frequency 
hop;  that  all  three  new  values  were  added  to  the  nominal  carrier  frequency  and  the  resulting 
frequency  was  formatted  and  sent  to  the  frequency  synthesizer  every  2.  45  milliseconds. 
Delay  loops  were  used  as  necessary  to  get  all  output  cycles  as  nearly  equal  in  time  as 
possible.  These  delay  loops  would  be  unnecessary  if  a real-time  clock  were  incorporated 
into  the  microprocessor  system.  The  cost  of  this  clock  was  not  considered  justified  in 
this  demonstration  set-up.  Such  a clock  would  be  required  however,  if  it  is  decided  to 
upgrade  the  K-Band  Terminal  Simulator  with  microprocessors,  as  it  would  permit  the 
required  precise  control  of  the  output  rate. 

The  2.  45  millisecond  output  rate  is  faster  than  the  present  5 millisecond  rate 
currently  available  in  the  K-Band  Terminal  Simulator,  but  not  nearly  as  fast  as  could 
be  attained  with  some  of  the  newer  microprocessors.  Many  of  the  newer  units  offer 
shorter  cycle  time  and  other  improvements,  such  as  indirect  addressing  or  an  improved 
instruction  set.  At  least  one  unit  has  a 10-bit  word  length,  which  could  increase  speed 
both  by  requiring  fewer  memory  cycles  to  execute  a single  instruction,  (the  8080  fetches 
as  many  as  three  bytes  per  instruction)  and  by  making  it  simpler  to  generate  the  three 
10-bit  binary  words  needed  to  drive  the  Rockland  synthesizer. 

It  is  not  unlikely  that  a microprocessor  could,  at  this  time,  be  found  that  would 
be  capable  of  reducing  the  observed  2.45  millisecond  step  time  to  less  than  1 milli- 
second. New  and  upgraded  microprocessor  products  are  currently  being  introduced  on 
an  almost  daily  basis  and  these  units  offer  further  improvements  in  speed,  instruction 
set  and  I/O  flexibility  over  the  original  8080  used  in  th"  brassboard  demonstration  unit. 
Amid  all  of  this,  it  is  also  worthy  to  note  that  the  prices  of  microprocessor  and  related 
semiconductor  products  are  currently  dropping  very  rapidly.  Computer  Sciences 
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Corporation  (CSC)  feels,  therefore,  that  making  a specific  recommendation  as  to  the 
"best"  choice  of  microprocessor  at  this  time  would  be  unjustified.  Any  information 
obtained  now  would  soon  be  too  obsolete  for  the  Air  Force  to  use.  We,  therefore, 
recommend  that  the  Air  Force  wait  until  a microprocessor  per  access  expansion  of  the 
CSEL  facility  is  required  before  attempting  to  select  the  "best"  microprocessor  to  use. 

A secondary  fallout  of  the  rapid  drop  in  semiconductor  (specifically  memory) 
prices  is  a simplification  in  the  recommended  configuration  for  a microprocessor  con- 
trolled CSEL  access.  When  the  processor-per-access  technique  was  first  proposed, 

CSC  felt  that  a practical,  operational  simulator  would  have  a central  core  memory  which 
would  be  maintained  by  the  CSEL  minicomputer  and  shared  by  each  microprocessor 
controlled  access  for  obtaining  hop,  Doppler,  MFSK,  and  fade  parameters.  This  con- 
figuration required  expensive  DMA  interfaces  and  attention  to  critical  timing  situations. 

We  now  feel  that  the  reduced  price  of  semiconductor  memory  makes  it  economically 
feasible  for  each  microprocessor  to  be  provided  with  enough  local  RAM  memory  to  store 
a significant  amount  of  real-time  data.  The  data  would  be  stored  in  a "double  buffer" 
format,  wherein  half  of  the  local  memory  would  at  any  time  be  filled  with  current  param- 
eters while  the  other  half  would  be  receiving  a "downline  load”  from  the  CSEL  minicom- 
puter. This  technique  will  greatly  reduce  the  complexity  of  the  hardware  microprocessor 
to  minicomputer  interface  and  be  free  of  the  critical  timing  burden  inherent  in  a single 
shared  memory  system. 

The  interface  between  the  minicomputer  and  microprocessor  can  be  either  serial 
or  parallel.  In  the  brassboard  demonstration  system,  a 2400  baud  serial  interface  was 
provided.  Approximately  2 minutes  was  required  to  transfer  the  entire  set  of  tables  to 
the  microprocessor  over  this  interface.  This  could  be  reduced  to  about  30  seconds  by 
increasing  the  speed  to  9600  baud.  For  real-time  operation  on  a 1-millisecond  time 
step,  and  on  non- repetitive  tables  a parallel  interface  would  be  required.  A serial 
interface  will  certainly  suffice  for  repetitive  tables,  as  demonstrated  with  this  brass- 
board  system. 
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Serial  interfaces  can  be  purchased,  often  complete  with  software  support,  at 
reasonably  low  cost.  Parallel,  non-DMA  interfaces  are  generally  more  expensive  and 
require  custom  software  drivers  to  be  written  for  them.  Parallel  DMA  interfaces  are 
by  far  the  most  expensive  in  both  hardware  and  software  and  generally  produce  the  greatest 
number  of  integration  problems.  Therefore,  the  particular  operational  requirements 
of  a microprocessor-per-access  simulator  will  have  to  be  considered  when  attempting  to 
configure  such  a system  in  the  most  cost-effective  manner. 
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SECTION  IV 

DESCRIPTION  OF  HARDWARE 


The  hardware  block  diagram  is  shown  in  Figure  1.  The  major  blocks  of  this 
diagram  are  described  below. 

CONTROL  PROCESSOR 

The  PDP-11/20  is  the  processor  that  is  normally  used  to  drive  the  K-Band 
Terminal  Simulator.  The  software  prepared  for  the  PDP-11  (see  Section  5)  allows  the 
operator  to  build  tables  of  values  for  frequency  hop,  MFSK,  and  Doppler,  and  transfer 
these  tables  to  the  microcomputer  memory.  The  interface  to  the  PDP-11  is  through  a 
DL11  interface  module  normally  used  to  drive  a second  VT05  console. 

MICROCOMPUTER 

The  microcomputer  in  the  block  diagram  is  an  INTELLEC  8/MOD  80  development 
system.  While  a number  of  microprocessor  chips  were  available  at  the  start  of  the 
contract,  only  the  Intel  8080  was  available  off-the-shelf,  with  the  support  hardware  and 
software  needed  to  develop  this  system. 

The  microcomputer  supplied  for  this  demonstration  has  the  following  modules: 

• 1 - IMM8-83  CPU  Module 

• 2 - IMM8-G1  I/O  Cards 

• 1 - IMM8-G3  Output  Card 

• 2 - IMM6-28  Random  Access  Memory  Cards,  4K  each 

• 3 - IMMG-2G  PROM  Cards,  4K  bytes  each 

• 1 - IMMG-76  PROM  Programmer 

• 1 - Front  Panel  Control  Module 

The  microcomputer  is  normally  supplied  with  one  IMM8-61  I/O  card  and  a second 
was  added  to  provide  a serial  interface  to  the  DEC  DL11-C  I/O  module.  An  IMM8-63 
output  card  was  added  to  provide  output  ports  to  drive  the  synthesizer. 
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Figure  1.  Block  Diagram  of  the  Demonstration  System 


The  software  included  with  the  development  system  consists  of  a system  monitor 
that  resides  in  2K  of  PROM,  a text  editor,  and  a macro  assembler  on  paper  tape. 

CSC  has  found  several  peculiarities  involved  in  operating  this  device  that  the  Air 
Force  should  be  cognizant  of.  The  first  is  a race  condition  when  bringing  up  the  System 
Monitor  which  can  be  avoided  if,  after  keying  in  the  "jump  to  3800"  instruction  in  loca- 
tions 0,  1,  and  2,  the  reset  key  is  depressed  before  the  "memory  access"  key  is  re- 
turned to  its  normal  position.  The  instruction  manual  says  to  return  the  "mem  access" 
key  to  normal  before  depressing  the  "reset"  key.  Sometimes  several  tries  are  required 
to  start  the  machine  if  the  sequence  in  the  book  is  followed.  Discussions  with  the  fac- 
tory have  verified  that  a race  condition  does  exist,  and  that  the  "reset"  key  should  be 
depressed  first,  then  the  "memory  access"  returned  to  its  normal  position. 

The  second  peculiarity  is  simply  that  if  the  room  is  chilly,  the  machine  needs  a few 
minutes  to  warm  up.  Discussions  with  personnel  at  the  factory  indicate  that  this  is  nor- 
mal. After  5-10  minutes  of  operation,  no  difficulties  have  been  encountered,  even  when  the 
room  was  quite  cool. 

The  third  peculiarity  is  that  the  two  random  access  memory  modules  must  be 
installed  in  the  same  slots  in  which  they  were  placed  when  the  microprocessor  was 
delivered  to  AFAL.  The  two  modules  are  supposed  to  be  identical,  and  indeed  they  will 
usually  function  normally  if  they  are  interchanged.  The  only  time  any  memory  problem 
has  been  apparent  is  when  running  the  Intellec  assembler.  If  the  assembler  is  run  with 
the  memory  cards  reversed,  the  program  will  not  stop  reading  at  the  end  of  the  source 
tape,  but  will  continue  until  the  reader  runs  out  of  tape.  This  is  a "hard"  error,  occurring 
every  time  an  attempt  is  made  to  read  a source  tape.  The  problem  goes  away  when  the 
two  RAM  boards  are  interchanged.  Several  attempts  were  made  to  isolate  the  error  by 
writing  various  patterns  into  memory  and  reading  what  was  written.  No  error  was  ever 
found,  and  the  attempt  was  abandoned.  The  factory  was  of  no  help  in  explaining  this 
situation,  other  than  recommending  that  the  RAM  boards  be  left  in  the  position  wherein 
no  problems  were  encountered. 
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FREQUENCY  SYNTHESIZER 

The  frequency  synthesizer  is  a Rockland  model  5100.  This  unit  was  chosen  for  its 
fast  switching  speed  and  its  ability  to  switch  frequency  without  any  phase  discontinuity 
in  the  output.  A synthesizer  with  these  features  was  required  in  order  to  obtain  small 
Doppler  steps  at  a fast  rate. 

A description  of  this  device  can  be  found  in  the  manufacturer's  manual. 
OPTO-ISOLATOR  INTERFACE 

Both  the  DEC  DL11  and  the  Intel  IMM8-61  I/O  modules  utilize  a serial,  current- 
loop  output,  and  were  designed  to  drive  a console  such  as  a CRT  or  a teletype.  These 
modules  were  interfaced  with  opto-isolators  (see  Figure  2).  An  opto- isolator  consists 
of  a light  emitting  diode  (LED)  and  a phototransistor,  mounted  in  a common  package. 
Forward  current  through  the  LED  causes  it  to  emit  light  which  turns  on  the  transistor. 

This  arrangement  provides  a high  degree  of  electrical  isolation,  avoiding  the  problems 
with  ground  loops  that  might  occur  if  the  grounds  of  the  two  machines  were  connected 
together. 

FREQUENCY  TO  VOLTAGE  CONVERTER 

The  frequency -to -voltage  converter  was  constructed  as  an  aid  in  determining  if  the 
output  of  the  frequency  synthesizer  is  being  varied  correctly.  A schematic  diagram  of 
this  assembly  is  shown  in  Figure  3.  The  CA3012  limiter  amp  provides  a constant 
level  to  the  input  of  the  monostable  flip  flop  (74121).  A pulse  train  is  produced  at  the  one 
shot  outpqt  with  all  pulses  being  the  same  width,  but  with  a pulse  repetition  rate  equal  to  the 
frequency  of  the  synthesizer  output.  R,.,  and  C,,  average  the  output  of  the  one  shot.  Since 
the  pulse  width  is  constant,  the  dc  voltage  across  C 2 is  proportional  to  the  frequency. 

Hence,  the  output  voltage  is  proportional  to  the  synthesizer  output  frequency. 

CONNECTING  CABLE 

The  values  outputted  to  the  synthesizer  are  transmitted  via  an  IMM8-63  output 
module.  A list  of  the  wiring,  from  the  rear  panel  of  the  microcomputer  to  the  synthe- 
sizer input  is  shown  in  Figure  4.  An  additional,  individual  wire  coming  from  the 
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Figure  3.  Frequency  to  Voltage  Converter  - Schematic  Diagram 


synthesizer  connector  carries  a software  generated  load  pulse,  pin  12,  which  is  used 
for  troubleshooting,  for  synchronizing  an  oscilloscope,  or  for  measuring  the  rate  at 
which  the  synthesizer  frequency  is  being  updated  on  a counter. 
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POWER  SUPPLY  CHASSIS 

This  chassis  contains  six  assemblies,  A1  through  A6  (see  Figure  5).  The 
functions  of  these  assemblies  are  as  follows. 

Connector  J48  on  the  rear  of  the  Intellec  is  an  AC  connection  for  a teletype.  An 
AC  card  from  assembly  A1  is  plugged  into  this  outlet  (see  schematic,  Figure  6).  When 
the  microcomputer  is  turned  on,  it  energizes  relay  Kl,  which  energizes  the  teletype 
and  the  three  power  supplies,  A4,  A5,  and  A6.  Afi  is  a -10  volt  supply  and  A5  is  a +5 
volt  supply.  These  two  supplies  are  needed  to  supplement  the  ones  inside  the  Intellec 
when  the  microprocessor  system  consists  of  more  than  a CPU,  2 RAM  boards,  1 ROM 
board,  and  2 I/O  boards.  If  the  output  board  driving  the  synthesizer  is  removed,  and 
the  extra  ROM  board  in  ROM  slot  2 is  removed,  the  internal  power  supplies  are  sufficient, 
and  the  external  ones  can  be  removed.  The  external  power  supplies  are  adequate  to 
power  the  computer  with  all  card  slots  filled. 

Assemblies  A2  and  A3  are  the  opto-isolator  interface  and  the  frequency  to  voltage 
converter,  respectively.  Both  units  have  already  been  discussed. 


A4  is  a +8  volt  power  supply  which  is  used  to  power  the  CA3012  limiter/amplifier 
in  the  frequency  to  voltage  converter.  A schematic  diagram  of  this  unit  is  shown  in 
Figure  7. 


Power  Control  Unit 


6.3  VOLT 
FILAMENT 
TRANSFORMER 


CR1 — CR4  = IN 599 


Figure  7.  +8  Volt  Power  Supply  Schematic 
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SECTION  V 

SOFTWARE  DESCRIPTION 

INTRODUCTION 

The  software  for  the  brassboard  demonstration  system  is  comprised  of  two  modules 
— a static  mode  module  and  a real-time  module.  The  static  mode  module  is  responsible 
for  building  and  transmitting  the  system  parameter  tables  and  pattern  value  tables  to  the 
Intellec  microprocessor.  The  real-time  module  is  responsible  for  the  execution  of  the 
real-time  mode. 

Detailed  documentation  on  each  main  program  and  subroutine  in  the  demonstration 
software  system  follows.  This  documentation  includes  a description  of  each  module, 
program,  and  subroutine,  a flowchart,  and  a computer  listing. 

STATIC  MODE  MODULE 

The  static  mode  module  is  responsible  for  building  and  transmitting  the  system 
parameter  and  pattern  value  tables  used  in  the  real-time  mode.  This  module  is  comprised 
of  a mainline  program  and  many  functional  subroutines. 

All  variable  elements  in  the  system  parameter  table  are  input  via  the  system  console 
using  keywords  to  specify  a particular  variable.  Each  keyword  has  an  associated  sub- 
routine that  is  responsible  for  managing  the  input  of  its  associated  parameter  value.  A 
listing  of  the  keywords  and  associated  subroutines  appears  in  Table  1. 

Prior  to  conversion  to  real-time  form,  each  effect  parameter  value  established 
through  console  input  is  stored  in  labeled  common  as  a four  byte  BCD  value.  During 
conversion  to  real-time  form,  each  BCD  value  is  converted  to  double  precision  and  then 
to  the  binary  form  of  the  real-time  mode.  This  process  could  have  been  simplified  using 
the  DECODE  system  routine,  but  would  have  defeated  our  design  objective  of  attempting 
to  keep  the  module  as  system  independent  as  possible. 

HOP  and  MFSK  table  values  are  input  by  the  module  through  the  console.  The  table 
size  for  each  must  be  a power  of  two  with  a maximum  size  of  61  for  MFSK  and  128  for 
HOP.  The  Doppler  values  are  built  by  successive  additions  of  an  operator  supplied 
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offset  to  the  base  frequency.  The  MFSK  and  HOP  values  are  converted  to  BCD  form 
and  then  to  their  packed  decimal  storage  form.  The  DOP  offset  is  also  converted  to 
BCD  form,  but  is  then  converted  to  double  precision  for  the  addition  process  used  in 
determining  each  successive  value.  Each  value  so  generated  must  be  converted  from 
double  precision  to  packed  decimal.  Subroutines  internal  to  the  module  are  used  for 
the  conversions  from  BCD  to  double  precision  and  from  double  precision  to  packed  decimal. 

Transmission  of  system  parameter  and  table  values  is  performed  via  the  sub- 
routines designed  to  transfer  data  according  to  an  expected  sequencing  of  the  real-time 
mode  reader  program.  Error  checking  is  performed  in  these  subroutines  to  guarantee 
the  successful  transfer  of  the  data  to  the  Intellec  microprocessor.  An  assembly  language 
routine  is  used  to  perform  the  actual  byte  transfers  to  the  Intellec  using  the  DL11  inter- 
face. This  is  the  only  system  and  machine  dependent  element  of  the  module. 

Besides  the  transmission  error  checking,  the  module  also  performs  extensive 
error  checking  of  operator  input  for  illegal  input  strings  and  values  out  of  range.  A 
final  consistency  check  is  also  performed  on  the  value  tables  to  ensure  that  only  yalid 
frequencies  will  be  output  in  real-time  mode  by  the  frequency  synthesizer.  Error 
messages  are  output  to  the  system  console  if  errors  are  detected. 

Labeled  common  errors  are  used  extensively  throughout  the  module  for  communica- 
tion between  the  subroutines  in  the  module.  All  areas  are  intialized  in  a BLOCK  DATA 
subprogram.  A description  of  each  area,  purpose,  and  initial  values  is  contained  in  the 
BLOCK  DATA  subprogram  description. 
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TABLE  1.  SYSTEM  KEYWORDS 


KEYWORD 

DESCRIPTION 

SUBROUTINE 

SHOW 

Display  current  values  of  effect  start,  end, 
cycle,  base  frequency,  and  simulation  end. 

SHOW 

LOAD 

Perform  system  parameter  and  pattern 
value  transfer 

INTELL 

FREQ 

Input  base  frequency  value 

FREQ 

HOPL 

Input  HOP  table  values 

HOPLD 

MFSL 

Input  MFSK  table  values 

MFSKLD 

DOPL 

Build  DOP  table 

DOPLD 

HSTR 

Input  HOP  start  time 

IBIE 

MSTR 

Input  MFSK  start  time 

IBIE 

DSTR 

Input  DOP  start  time 

IBIE 

HEND 

Input  HOP  end  time 

IBIE 

MEND 

Input  MFSK  end  time 

IBIE 

DEND 

Input  DOP  end  time 

IBIE 

HCYC 

Input  HOP  cycle  value 

STEPS 

MCYC 

Input  MFSK  cycle  value 

STEPS 

DCYC 

Input  DOP  cycle  value 

STEPS 

SEND 

Input  simulation  end  value 

ENDSIM 

) 


STATIC  MODE  MAINLINE 

This  program  is  used  to  perform  input  of  the  function  keywords  that  govern  system 
setup  and  execution  and  to  call  the  appropriate  subroutine  that  manages  the  execution  of 
the  keyword  specified. 

The  "PARMID"  routine  is  used  to  determine  the  identity  of  the  function  keyword 
supplied.  This  program  successively  examines  the  value  returned  from  the  routine  to 
determine  the  appropriate  subroutine  to  invoke  to  complete  the  keyword  processing. 
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WRITE  SYSTEM 
ID  MESSAGE 


r 


I 


WRITE  QUERY 
SYMBOL 

1 

- 

READ 

RE 

— 

USER 

PLY 

♦ 


IBIE 


GET  SMART 
TIME  FOR 
THIS  EFFECT 


WRITE 

MESSAGE  THAT 
TIME  IS 
INVALID 


EFFECT 
END  TIMES 


SET  TYPE  TO 
STOP  TO  GET 
END  TIMES 


««m(&,9.)6) 

906  FU»«*T(lh  FHtOuENCT'J 


OPTIONS  ■/ON,FSJ,/OPJl 


••COMPILER  -----  CORE** 
PH*5t  OSED  FREE 


BLOCK  DATA 


The  purpose  of  tnis  subprogram  is  to  initialize  the  labeled  common  areas  of  the 
static  mode  module  prior  to  its  execution.  A listing  and  description  of  each  area  follows: 

1.  RTMTB  - a 31  word  integer  array  that  initializes  the  system  parameter  table 
used  in  the  real-time  mode.  The  real-time  pattern  masks,  random  number 
seeds,  and  pattern  table  addresses  are  non  zero. 

2.  MAXMIN  - a 6 element  double  precision  array  used  to  store  the  HOP,  MFSK, 
and  DOP  maximum  and  minimum  values. 

3.  TABLES  - a 6080  byte  area  used  for  pattern  value  storage  in  packed  decimal 
form.  This  area  is  initialized  to  zero. 

4.  SYSTEM  - a 29  word  integer  area  used  for  the  BCD  intermediate  storage  of 
effect  start,  stop,  cycle  values,  base  frequency  value,  and  simulation  end. 

This  area  is  initialized  to  zero. 

5.  SPCDEC  - a 22  byte  area  used  to  store  the  ASCII  character  representations 
for  those  characters  used  in  operator  input  processing. 
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••COMPILER  CORE** 

PnA;>t  O'jtO  FREE 

UECLARAI  IVES  rfPJ'ia 

EXECUTABLES  S3.  021P4 

ASbF  *1r>L  T HKiF*)  tfSTJb 


SUBROUTINE  INTELL 


f 

f 

i 

r 


The  primary  purpose  of  this  routine  is  to  manage  the  conversion  and  transmission 
of  the  system  parameter  values  and  pattern  value  tables  to  the  Intellec  microprocessor. 
This  routine  also  checks  the  consistency  of  the  pattern  value  tables  to  ensure  that  a 
frequency  less  than  0 or  greater  than  2 megahertz  cannot  be  generated. 


The  simulation  end  and  the  three  effect  start,  stop  and  cycle  values  are  first 
converted  from  BCD  to  real  number  values  using  the  ASCRLN  subroutine.  Simulation 
end  and  effect  start/stop  values  which  are  specified  in  minutes  are  then  converted  to 
number  of  cycles  per  minute.  The  values  are  then  converted  to  the  binary  form  of  the 
real-time  mode  with  the  RLNBIN  subroutine. 


After  conversion,  the  simulation  end,  effect  start,  stop,  cycle  values,  and  base 
frequency  value  in  packed  decimal  form  are  inserted  into  the  "TAB"  array.  The  "TAB" 
array  is  a 61  byte  table  that  is  initialized  in  BLOCK  DATA  with  the  system  parameter 
elements  that  are  constant;  i.  e. , pattern  mask,  running  sum,  addresses  etc.  Data 
transmission  to  the  Intellec  is  done  in  the  following  order  using  the  COMMO  subroutine; 

1.  System  parameter  table  - 61  bytes  starting  at  location  20  HEX. 

2.  HOP  pattern  value  table  - 640  bytes  transmitted  in  32  byte  blocks  beginning 
at  location  1A00HEX. 

3.  MFSK  pattern  value  table  - 320  bytes  transmitted  in  32  byte  blocks  beginning  at 
location  1D0  OH  EX. 

4.  DOP  pattern  value  table  - 5120  bytes  transmitted  in  32  byte  blocks  beginning 
at  location  600  HEX. 
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] 

; 
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INITIALIZE 
VARIABLES, 
INDEX,  ETC 


ASCRLN 

CONVERT 
START  FROM 
BCD  TO  REAL 


MULT  REAL 
MINUTES  BY  # 
CYCLES/MIN 


RLNBIN 

CONVERT  TO 
BINARY 


ASCRLN 

CONVERT  STOP 
FROM  BCD 
TO  REAL 


MULTIPLY  BY 
#CYCLES/MIN 


RLNBIN 


CONVERT  TO 
BINARY 
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SUBROUTINE  COMMO 

The  purpose  of  this  routine  is  to  transmit  a block  of  data  via  the  DL11  interface  and 
the  DL  subroutine  to  the  Intellec  microprocessor. 

The  address  of  the  memory  location  to  load,  the  number  of  bytes  in  the  block,  and 
the  data  block  are  passed  to  the  routine.  The  routine  then  passes  this  information  via 
the  DL  subroutine  to  the  Intellec  in  the  following  order. 

1.  High  byte  address. 

2.  Low  byte  address. 

3.  Number  of  bytes  in  the  data  block. 

4.  The  data  bytes  one  at  a time. 

After  each  transfer,  the  error  flag  returned  from  the  DL  subroutine  is  checked  for 
possible  errors.  If  an  error  occurs,  the  routine  returns  the  value  of  the  DL  subroutines 
error  flag  to  the  caller.  The  byte  passed  to  the  DL  subroutine  is  also  compared  with 
the  byte  echoed  back  from  the  Intellec  after  each  byte  transfer  to  verify  correct  recep- 
tion. An  error  value  of  three  is  returned  from  this  routine  if  a verification  error  occurs. 


* 


SET  ERROR 
FLAG  TO  VAL 
RET  FROM  DL 


SET  ERROR 
FLAG  TO  3 


RETURN 


RETURN 





subroutine  con"Of i*on,nb»ts,o*t, ierbj 


options  «/un, /s  I, /CPI l 


SUBROUTINE  DL 


This  routine  is  used  to  transmit  and  receive  byte  data  to  and  from  the  Intellec  via 
the  DL11  interface.  A byte  to  be  transmitted  is  passed  to  the  routine  in  its  parameter 
list.  After  transmission  of  the  byte  to  the  Intellec,  the  routine  loops  checking  the  receive 
status  for  indication  that  the  byte  sent  has  been  echoed  back.  Once  the  receive  indicator 
in  RCSR  becomes  true,  the  echoed  byte  is  moved  from  RBUF  to  the  callers  argument 
list. 

The  routine  also  returns  an  error  flag  to  the  caller  that  is  set  as  follows: 

1.  0 = no  errors 

2.  1 = XMIT  ready  not  received 

3.  2 = REC  ready  not  received 


SAVE  REGS 
0-  4 ON 
STACK  ZERO 
ERROR  REG 


MOVE 

CONTENTS  RBUF 
TO  R2  (CLEAR 
RECEIVE  REG) 


SETUP  XMIT 
TIMEOUT 
LOOP  REG 


GET  XMIT 
STATUS 


READY 


DECREMENT 
TIMEOUT  REG 


GET  RECEIVE 
STATUS 
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SUBROUTINE  DOPLD 


The  purpose  of  this  routine  is  to  build  the  Doppler  pattern  value  table  from  the 
base  frequency  value  and  an  offset. 

The  offset  value  is  read  from  the  system  terminal  device,  converted  to  BCD,  and 
then  converted  to  double  precision.  The  Doppler  table  is  then  built  by  successively 
adding  the  offset  value  to  be  the  base  frequency  value  and  converting  the  result  to  packed 
decimal  form. 
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SUBROUTINE  HOPLD 

This  routine  is  used  to  build  the  HOP  table  from  user  input.  Each  value  input  is 
converted  to  BCD,  checked  for  error,  converted  to  packed  decimal  form,  and  then 
entered  into  the  HOP  table  contained  in  labeled  common. 

Besides  managing  the  value  input  and  conversions,  the  rouiine  also  determines  the 
maximum  and  minimum  HOP  values  in  the  table.  These  two  values,  maximum  and 
minimum,  are  stored  in  the  MAXMIN  area  of  labeled  common  in  double  precision  form. 

The  table  size,  initially  determined  by  bumping  a counter  after  each  value  is  input, 
is  checked  before  return  to  verify  that  it  is  a power  of  two.  If  it  is  not,  the  size  is  truncated 
to  the  next  closest  power  of  two. 
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SUBROUTINE  MFSKLD 


This  routine  is  used  to  build  the  MFSK  pattern  value  table  from  user  input.  Each 
value  input  is  converted  to  BCD,  checked  for  errors,  converted  to  packed  decimal,  and 
then  entered  into  the  MFSK  pattern  value  table  contained  in  labeled  common. 

Besides  managing  the  value  input  and  conversions,  the  routine  also  determines  the 
maximum  and  minimum  MFSK  values  for  later  use  by  the  "INTELL”  routine.  These 
two  values,  maximum  and  minimum,  are  stored  in  the  MAXMIN  area  of  labeled  common 
in  double  precision  form. 

The  table  size,  initially  determined  by  bumping  a counter  after  each  value  is  input, 
is  checked  before  return  to  verify  that  it  is  a power  of  two.  If  not,  the  size  is  truncated 
to  the  next  closest  power  of  two. 
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SUBROUTINE  ENDSIM 


The  purpose  of  this  routine  is  to  establish  the  simulation  duration  or  end  time  via 
operator  input.  The  routine  queries  the  user  for  the  simulation  end  time  value,  reads 
the  reply,  and  converts  it  to  a BCD  string  using  the  NUMBER  subroutine.  The  converted 
value  is  interpreted  as  a whole  number  value  of  the  number  of  minutes  to  run  the  simula- 
tion. 

Bytes  5,  6,  7 and  8 of  the  BCD  string  are  saved  in  the  SYSTEM  labeled  common 

area. 
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SUBROUTINE  STEPS 

This  routine  is  used  to  obtain  effect  cycle  rate  values  from  the  user.  The  routine 
writes  a message  to  the  system  terminal  requesting  a cycle  value  be  provided,  reads 
the  reply,  and  converts  it  into  a BCD  string  using  the  NUMBER  routine. 

The  value  of  the  keyword  index  passed  to  the  routine  is  used  to  determine  the 
particular  effect  type  specified.  The  low  order  4 BCD  digits  of  the  converted  string 
are  stored  in  the  SYSTEM  labeled  common  region  according  to  the  effect  type  determined. 

A value  not  in  the  range  0-9999  will  generate  an  error  message. 
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SUBROUTINE  IBIE 


The  purpose  of  this  routine  is  to  obtain  either  an  effect  start  or  effect  end  time 
value  from  the  user.  Both  effect  start  and  end  values  are  interpreted  as  whole  number 
minutes  in  the  range  0-9999. 

The  routine  writes  a message  to  the  system  terminal  requesting  a time  value  be 
provided,  reads  the  reply,  and  converts  it  to  a BCD  string  using  the  NUMBER  subroutine. 
The  routine  uses  the  keyword  index  value  and  a type  parameter  (either  STOP  or  START) 
to  determine  where  in  the  SYSTEM  labeled  common  region  to  store  the  value.  Since 
only  a four  digit  whole  number  is  used,  the  routine  saves  only  bytes  5,  6,  7,  and  8 of 
the  converted  BCD  string. 

A value  not  in  the  range  0-9999  will  generate  an  error  message. 
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SUBROUTINE  FREQ 


This  routine  is  used  to  obtain  the  base  frequency  value  from  the  user.  The  routine 
writes  a message  to  the  system  terminal  requesting  a base  frequency  value  be  provided, 
reads  the  reply,  and  converts  it  to  a BCD  string  using  the  NUMBER  subroutine.  The 
BCD  value  of  the  base  frequency  is  then  stored  in  labeled  common. 
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SUBROUTINE  PARMID 


This  subroutine  is  used  to  identify  a function  keyword  input  by  the  user.  After 
extracting  the  user  keyword  from  the  input  buffer  contained  in  the  INBUF  area  of  labeled 
common,  the  routine  attempts  to  match  it  with  one  of  the  valid  function  keywords.  If  a 
match  is  found,  the  routine  returns  the  index  value  (1-16)  of  the  keyword.  If  a null  string, 
carriage  return  response  is  found,  a value  of  17  is  returned.  If  a non-carriage  return 
and  unidentifiable  response  is  found,  the  routine  returns  a value  of  zero.  The  routine 
is  called  only  from  the  static  mode  mainline  program. 
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SUBROUTINE  SHOW 


The  purpose  of  this  routine  is  to  display  the  current  effect  start,  end,  and  cycle 
values,  base  frequency,  and  simulation  end  value  on  the  system  terminal  device.  The 
values  are  stored  in  the  labeled  common  SYSTEM  area  in  BCD  form  and  output  in  "I" 
format. 

This  routine  is  called  only  from  the  static  mode  mainline  program. 


SUBROUTINE  SHOW 


«-« 

r\J 


01 

<r 

Al 


N 

S 


O 


z 

cr 

« 

Ul 

Ui 

* yc 

X 

M 

cr  CO 

or  ui 

X 

« < 

3 at 

p- 

« X 

u < 

* • 

• 

« O 

111  CO 

Qt 

« z »o 

x at 

UI 

• 

<1  Ui  w 

r-  UI 

CO 

**> 

• £ Q 

►- 

3 

X 

* lO  M 

>»  UI 

ui 

* a • 

< r 

Ui 

►- 

* • 3 

3 -a 

X 

CO 

• UI? 

a.  x 

►- 

>- 

Ci  cO  ul 

to  4 

CO 

« < I 

h a. 

► 

* flirt 

o 

c 

T 

« a x 

Ui 

O 

u - *■ 

o r 

►- 

r 

* Ui  ^ 

H C- 

UJ 

X 

« jw 

CO 

o 

* O *— 

to  • 

u 

• ► XI 

QC 

o 

*03 

ui 

z 

a 

• XU 

Ui  CO 

< 

UI 

« • >> 

« 

Z 3 

3 

* a u 

w 

M 

< 

UI 

♦ ox 

c- 

►“  ul 

1- 

© 

u ^ 

*- 

3 I 

< 

< 

« CO 

© 

O •- 

3 

♦ X CO 

O 

X 

« • w 

* 

o 

ur 

Z 

* »-  X 

CO  ►- 

o 

*•< 

* or  O 

»-« 

◦ 

« < *- 

w 

X CO 

_> 

UI 

* ►-  CO 

»-  a: 

X 

» 

* CO  X 

V 

UI 

■a 

« X • 

© 

IX  C- 

z 

* Nrs 

*— • 

•o 

© 

o ui 

►-C 

UI 

« X Kl 

XI 

w 

• 

X 

3 

* ii  w 

*4 

MT 

»*> 

ui  ** 

c 

-1 

« C-K 

w 

<o 

:T 

er 

1* 

* « *r 

u 

T 

3 u 

N 

> 

« >■  ^ 

vO 

X 

•— 

x cv 

«-• 

• irt  K 

< 

>- 

3 

-1 

*— 

* N.  CO 

X) 

X 

X c 

U 

Z 

* Z X 

X 

xl 

< 

a.  ui 

UI 

« 3 

i- 

c- 

X 

* r 3 xj 

Ui 

ul 

ua  »o 

M 

X 

* I < 

c- 

P- 

*- 

r ► 

z 

3 

• 3 ui 

>• 

Z 

>~ 

► • CO 

H 

u 

• 3 X 

c 

*>« 

© 

«r  « 

« 

• 

« 

• « 

• 

* 

ci 

« • 

« 

« 

« 

* « 

• 

« 

* ►* 
• K- 


a. 

o 

3 


I *-s  ^ % 


X X 
o % 


DU* 
Ul 


X 

XI  3 

c.*  r 

2 % 


>■  ij  oJ  Jj  s % n « •* 


i »-  k H 3 D 


3 »-  « 
3 a ‘ 
ui  3 


u uuu uuuu 


% 

UI 

w • 

« 

3 

ui  o 

cr 

u 

CO  Ui 

« 

>• 

< X 

* 

u 

CD  X 

CO 

X 

X 

* 

w ui 

Ui 

X 

«-• 

• CO 

H* 

cr 

M 

Ul 

c- 

« 33 

X 

% 

► 

«.  % 

< 

X 

X 

CV  • 

or 

Q 

U IP 

a >; 

< 

Z 

♦ 

•»  CV 

X 

Ui 

c- 

•+ 

• » 

» 

► 

H 

PN  •< 

X 

00 

"»  H 

ui 

X 

CD 

»-» 

fc— 

IP 

X 

Ui  • 

CO 

c— 

P 

CO  % 

>- 

% 

»- 

X 

CO 

c- 

S3 

-4 

X)  a 

« 

X 

< 

M 

X o 

Cl 

< 

^ z 

a 

Ct 

¥~ 

• u* 

« 

CO 

M 

X 

c- 

CV 

• 

% 

► r 

•• 

IP 

o 

© M 

X 

p- 

9 

X 

X 

M 

< CO 

o 

s> 

S 

fU 

r-* 

<x> 

< 

« V 

V 

X 

s 

s 

m 

cn 

• 

« - 

* 

»- 

s 

s 

•— * 

«> 

3 

»•» 

—» 

w 

X 

O' 

•«* 

w 

•-« 

W 

X 

X X 

CO 

z 

% 

•— • 

■ 

►- 

Ui 

•* 

ui 

3 

• -4 

V. 

X 

X»  W M 

X 

X 

3 U> 

W 

3 

z 

X)  ^ 

« 

3 

*- 

w 

I- 

c 

O 

►- 

Z 

ui 

*-»  p- 

z 

z 

■< 

ui 

< 

C- 

♦- 

► 

ui 

< 

X 

ui  < 

X 

o 

X 

X 

r\s  tO 

*o 

Cl 

*- 

t 

p- 

CO  ►—  £ 

3 

V. 

« 

O' 

cr 

•-I  X 

X 

X 

X 

•-* 

X 

Z 

X 

-*  X 

*- 

Q 

a 

cv 

cv 

3 

X 

3 

3 

• 

a 

a 

X 

3 

3 

a 

X 3 

ui 

Z 

X 

s 

X 

3 

< 

JO  i_> 

s 

X 

O 

< 

s X 

X 

Ul 

co 

z 

X 

o 

X 

Ui 

S 

(V 

<* 

4> 

*-» 

u 

X 

s. 

S 

s# 

•s 

tc 

c- 

o 

o 

CO 

• 

<? 

9- 

tv 

c? 

X 

3 

7 

>- 

o 

A 

(O 

CO 

••COMPILER  -----  CORE*# 
PHASE  U3E0  FREE 

DECLARATIVES  00t}2T  021J9 
EXECUTABLES  0H163  02103 
ASSEMBLY  01?22  0638« 


SUBROUTINE  SEARCH 


The  purpose  of  this  routine  is  to  determine  the  start  and  end  character  positions  of 
a user  response.  The  routine  first  scans  the  INBUF  area  of  labeled  common  for  a non- 
blank character  or  a carriage  return.  If  a carriage  return  is  found,  the  routine  sets  the 
start  parameter  to  zero  and  exits.  Otherwise,  the  routine  sets  the  start  parameter  to 
the  character  position  of  the  first  non-blank  character  and  continues  its  scan  until  a 
blank  or  carriage  return  character  is  found.  The  end  parameter  is  then  set  to  the 
character  position  of  the  blank  or  carriage  return  character. 
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Byte  # Contents 
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SUBROUTINE  RLNBCD 


The  purpose  of  this  routine  is  to  convert  a double  precision  number  to  packed 
decimal  format.  The  RLNASC  routine  is  used  to  convert  the  number  to  a BCD  string 
and  the  BCD  routine  is  used  to  convert  the  resultant  BCD  string  to  packed  decimal. 


Ill 


« 


i 


SUBROUTINE  RLNASC 

The  purpose  of  this  routine  is  to  convert  a double  precision  number  to  the  BCD 
representation  described  in  the  description  of  the  NUMBER  subroutine.  The  BCD 
string  is  generated  by  a series  of  divisions  of  the  number  by  powers  of  10  and  subtrac- 
tions of  the  quotient  times  the  power  of  10.  Each  quotient  value,  when  converted  to 
integer,  represents  one  of  the  digits  of  the  BCD  representation  of  the  number. 
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SUflWOuT  I \ - KCnASCCOPKI*, ASCII) 


SUBROUTINE  RLNBIN 


I 

The  purpose  of  this  routine  is  to  determine  the  integer  equivalent  of  a double 
precision  number.  Division  by  166,  164,  16°  is  used  to  generate  integer  quotients  that 
if  concatenated  as  bytes  would  represent  the  double  word  integer  equivalent  of  the  double 
precision  number.  The  integer  quotients  are  returned  in  a 4 element  integer  array. 
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SUBROUTINE  BCD 


The  purpose  of  this  routine  is  to  convert  a BCD  string  to  five  packed  decimal 
bytes.  The  format  of  the  BCD  string  is  described  with  the  description  of  the  NUMBER 
subroutine.  A description  of  the  packed  decimal  form  is  contained  in  the  real-time 
mode  section. 
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SUBROUTINE  ASCRLN 


The  purpose  of  this  routine  is  to  perform  BCD  to  double  precision  conversion. 
The  format  of  the  BCD  string  passed  is  described  in  the  description  of  the  NUMBER 
subroutine.  A double  precision  number  is  determined  by  multiplying  each  BCD  digit 
by  its  corresponding  power  of  10  and  adding  to  a running  sum. 
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REAL-TIME  MODULE 


1 


The  real-time  module  is  responsible  for  loading  the  main  program  and  reader 
routine  into  RAM,  performing  the  system  parameter  and  pattern  value  table  input  from 
PDP-11,  and  executing  the  real-time  mode.  The  module  is  composed  of  a main  program 
that  executes  the  real-time  mode,  a reader  program  that  performs  the  input  from  the 
PDP-11,  and  a loader  program  to  load  the  main  and  reader  programs. 

Detailed  descriptions  of  each  program  follow. 


REAL-TIME  MAIN 


This  program  is  designed  to  output  a random  frequency  to  the  Rockland  synthesizer 
in  real-time.  A cycle  rate  of  approximately  2. 45  milliseconds  has  been  obtained  and  is 
maintained  in  software  by  delay  loops  when  necessary.  Since  no  internal  hardware  clock 
accessible  to  software  is  present  in  the  Intellec,  this  is  the  only  feasible  method  of 
maintaining  a fairly  uniform  cycle  rate. 

The  system  parameter  tables  and  pattern  value  tables  for  the  HOP,  MFSK,  and 
Doppler  effects  are  obtained  from  the  PDP-11  via  a down  line  load  process  using  the  DL11 
interface  and  Intellec  serial  input/outputs.  The  format  of  the  system  parameter  table 
is  shown  in  Figure  8. 

In  order  to  simulate  current  time,  the  program  maintains  a counter  that  is  updated 
after  each  output  to  the  Rockland  frequency  synthesizer.  This  counter  is  initialized  to 
zero  at  the  start  of  the  real-time  run.  There  are  also  three  counters  for  each  of  the  three 
effect  types  that  are  initialized  in  static  mode  and  updated  by  their  cycle  rate  each  time 
a corresponding  effect  pattern  value  is  used  in  computing  an  output  frequency  for  the 
Rockland.  During  each  cycle,  all  three  effect  counters  are  compared  with  the  value  of 
the  simulation  counter.  If  the  effect  counter  value  is  less  than  or  equal  to  the  simulation 
counter  value,  than  a value  for  that  effect  is  used  in  computing  the  Rockland  frequency. 
When  no  effect  types  satisfy  this  requirement,  only  the  base  frequency  is  output. 

Both  the  base  frequency  and  pattern  value  tables  are  stored  in  packed  decimal 
form.  The  format  of  this  storage  is  given  in  Figure  9.  A running  sum,  also  in 
packed  decimal  form,  is  initialized  at  the  beginning  of  each  cycle  period  to  that  of  the 
base  frequency.  Effect  values  are  added  or  subtracted  from  the  current  running  sum  value 
using  BCD  arithmetic.  The  addition  and  subtraction  routines  used  have  been  programmed 
using  straightline  repetitive  code  to  minimize  the  time  required  for  these  time  consuming 
operations.  A delay  loop  is  used  with  the  addition  routine  to  account  for  the  longer  time 
required  for  the  subtraction  process. 
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LENGTH 


ADR 

TYPE 

20 

SIMULATION  CURRENT  CYCLE 

BINARY 

23 

BASE  FREQUENCY 

PACKED  DEC 

28 

RUNNING  SUM 

PACKED  DEC 

2D 

SIMULATION  STOP  VALUE 

BINARY 

30 

HOP  CURRENT  CYCLE 

BINARY 

33 

RANDOM  NUMBER  INDICATOR  (FF) 

BINARY 

34 

HOP  RANDOM  NUMBER  MASK 

BINARY 

35 

HOP  RANDOM  NUMBER  SEED 

BINARY 

38 

HOP  PATTERN  TABLE  LOC 

BINARY 

3A 

HOP  CYCLE  RATE 

BINARY 

3C 

HOP  STOP  VALUE 

BINARY 

3F 

MFSK  CURRENT  CYCLE 

BINARY 

42 

RANDOM  NUMBER  INDICATOR  (FF) 

BINARY 

43 

MFSK  RANDOM  NUMBER  MASK 

BINARY 

44 

MFSK  RANDOM  NUMBER  SEED 

BINARY 

47 

MFSK  PATTERN  TABLE  LOC 

BINARY 

49 

MFSK  CYCLE  RATE 

BINARY 

4B 

MFSK  STOP  VALUE 

BINARY 

4E 

DOP  CURRENT  CYCLE 

BINARY 

52 

DOP  TABLE  INDEX 

BINARY 

55 

NOT  USED 

58 

DOP  PATTERN  TABLE  LOC 

BINARY 

5A 

DOP  CYCLE  RATE 

BINARY 

5C 

DOP  STOP  VALUE 

BINARY 

♦All  fields  are  in  LSB  to  MSB  order 


Figure  8.  System  Parameter  Table 
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Since  the  output  format  required  by  the  Rockland,  see  Figure  10,  is  binary,  not 
packed  decimal,  a conversion  of  the  running  sum  value  is  required  before  output  to  the 
synthesizer  can  be  performed.  The  conversion  process  uses  a binary  equivalent  table 
in  tens/units,  hundreds,  and  hundreds/tens  denominations.  For  example,  byte  one  of 
the  running  sum  containing  the  millihertz  tens/units  value  is  used  as  an  index  into  the 
tens/units  tables.  Stored  at  this  location  is  the  binary  equivalent  of  the  tens/units  packed 
decimal  value  specified  in  byte  one.  The  millihertz  hundreds  value,  stored  in  the  lower 
nibble  of  byte  two  of  the  running  sum,  is  used  as  an  index  into  the  hundreds  equivalent 
table.  Since  two  bytes  are  generally  needed  to  store  a value  between  0 and  900,  the 
millihertz  hundreds  digit  must  be  doubled  to  get  the  correct  address  of  the  two  byte 
binary  equivalent.  Similar  processes  must  be  performed  for  both  hertz  and  kilohertz. 

The  conversion  process,  although  time  consuming  and  wasteful  of  memory,  has  been 
found  to  be  more  economical  than  use  of  other  addition/subtraction  algorithms  that  gen- 
erate a running  sum  more  compatible  with  the  Rockland  output  format. 

The  size  of  the  HOP  and  MFSK  tables  is  always  a power  of  two  up  to  a maximum  of 
128  for  HOP  and  64  for  MFSK.  The  Doppler  table  size  is  always  equal  to  1024.  Allowing 
for  a fixed  five  bytes  per  value,  the  HOP  table  may  occupy  640  bytes,  the  MFSK  table 
320  bytes,  and  the  Doppler  table  is  always  5120  bytes.  The  starting  location  for  each 
table  is  not  variable.  HOP  always  begins  at  location  1A00  HEX,  MFSK  at  location  1000 
HEX,  and  Doppler  at  location  600  HEX. 

Values  are  chosen  from  the  HOP  and  MFSK  tables  using  a pseudorandom  number 
generator  for  index  selection.  The  random  number  generator  used,  a P-N  sequence 
based  on  a primitive  polynomial  of  degree  24,  will  provide  a series  of  three  byte  random 
numbers  that  will  not  repeat  for  more  than  1 hour.  The  actual  table  index  chosen  is 
gotten  by  a masking  operation  on  the  LSB  of  the  random  number  with  a mask  value  one 
less  than  table  size.  This  technique  produces  a series  of  random  numbers  whose  values 
will  range  from  zero  to  table  size  minus  one  that  will  be  uniform  and  will  repeat  each 
index  with  equal  probability. 
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PORT  # 


MILLIHERTZ  LSB  (BINARY)  8 

MILLI HERTZ  MSB  (BINARY)  9 

HERTZ  LSB  (BINARY)  10 

HERTZ  MSB  (BINARY)  11 

KILOHERTZ  LSB  (BINARY)  12 

KILOHERTZ  MSB  (BINARY)  13 

MEGAHERTZ  14 


♦♦Binary  value  of  0 output  followed  by  binary  value  of  1,  both  to 
PORT  15  signals  output 

Figure  10.  Rockland  Interface  Format 
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Values  are  chosen  from  the  Doppler  table  using  an  index  value  that  is  merely 
incremented  after  each  selection.  When  the  index  value  exceeds  table  size,  the  index 
is  reset  to  zero  to  begin  another  Doppler  cycle. 
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C5 


GET  BASE  ADR 
OF  PAT  TABLE 
FOR  THIS 
EFFECT  TYPE 


ADD  PAT  NLSB 
TO  SUM  NLSB 


ADD  INDEX  5 
TIMES  TO  GET 
MSB  ADR  IN 
PAT  TABLE 


DECIMAL 

ADJUST 

RESULT 


ADD  OTO  MSB 
OF  PAT  TO 
EFFECT 

CONDITION  BITS 


RESULT 

NEG 

. ? 


STORE  NEW 
NLSB  OF  SUM 


ADD  PAT 
NNLSB  TO 
SUM  NNLSB 


DECIMAL 

ADJUST 

RESULT 


DECIMAL 

ADJUST 

RESULT 
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****  KB/WD  Ml  CKO  PROCESS  OTt  SYSYEM  PEAL  TIME  PROGR  AM 


THE  PURPOSE  OF  THIS  PROGRAM  IS  TO  OUTPUT  A RANDOM 
FREQUENCY  TO  THE  ROCKLAND  SYNTHESIZER  IN  HEAL 
TIME.  THE  FREQUENCY  OUTPUT  IS  FOILED  BY  ADDITION 
OF  HOP.tlFSK,  AND  DOPPLER  VALUES  TO  A BASE  FREC. 

A FREQUENCY  IS  OUTPUT  EVERY  2. AS  MLS.  THREE 
COUNTERS (ONE  FOR  EACH  EFFECT)  ARE  MAINTAINED 
AND  CHECKED  EACH  OUT JUT  CYCLE  TO  DETERMINE  IF  ITS 
CORRESPONDING  VALUE  SHOULD  BE  ADDED  TO  A FUNNING 
SUM.  IF  THE  EFFECT  COUNTER  IS  LESS  THAN  OR  EQUAL 
TO  THE  VALUE  OF  THE  MASTER  SIMULATION  COUNTER 
THAN  A VALUE  IS  CHOSEN  AND  ADDED  TO  THE  RUNNING 
SUM.  IF  NO  EFFECTS  SATISFY  THIS  REQUIREMENT,  THAN 
ONLY  THE  BASE  FREQUENCY  IS  OUTPUT.  IN  ANY  CASE  EA 
EFFEC*  COUNTER  AND  THE  MASTER  COUNTER  ARE  UPDATED 
EACH  OUTPUT  PERIOD.  THE  EFFECT  COUNTERS  ARE  UPDAT 
BY  A PREDEFINED  VALUE  THA.T  IS  INPUT  BY  THE  USER. 
MASTER  COUNTER  IS  ALWAYS  INCREMENTED  BY  ONE  EACH 
OUTPUT  PERIOD. 

DOPPLER  VALUES  ARE  CHOSE!}  ON  THE  BASIS  OF  AiN  INDE 
VALUE  TKA.T  IS  INCREMENTED  BY  ONE  AFTER  EACH  SEL- 
ECTION AMD  RECYCLED  A?  L.2A.  HOP  AMD  MF SK  VALUES 
ARE  CHOSEN  CM  THE  BASIS  OF  AM  INDEX  DETERMINED 
BY  THE  OUTPUT  OF  A RANDOM  NUMBER  GENERATOR. 

ALL  EFFECT  VALUES  ARE  STORED  IN  P MIKED  DECIMAL 
FOFM#  JJLS3  TO  USD.  SYSTEM  PARAMETER  VALUES  ARE 
LIKEWISE  STORED  IN  LSB  TO  MSB  ORDER  LJT  ARE  ALL  I 
BINARY  WITH  THE  EXECEPTIOM  OF  BASE  FF.EQ  AM D RUNNX 
SUM. 

BOTH  SYSTEM  PARAMETER  AND  EFFECT  VALUES  ABE  INPUT 
FROM  THE  PDP-  1 1. 
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*****  SYSTEM  TABLES>DATA  AREA  DEFINITIONS 
I 


0990 

0020 

SIM  i 

ORG 

DS 

2 PH 

3 

I SIMULATION  CLOCK 

0023 

BFREQt 

DS 

5 

I BASE  FREQ 

0028 

SHIF.fil 

DS 

S 

IF.UMN1NG  SUM 

002D 

STOPi 

t 

DS 

3 

/STOP  CLOCK  FOR  SIMULATION 

0030 

* 

SYSTBl 

DS 

3 

;hop  cun  event  clock 

0333 

DS 

2 

IHOP  PATTERN  MASK 

0035 

DS 

3 

IHOP  RAID  DUMB  SEED 

0038 

DS 

2 

ikop  pat  adrciaoo) 

0O3A 

DS 

2 

IHOP  CYCLE  RATE 

003C 

f 

DS 

3 

IK OP  STOP  TIME 

003F 

9 

DS 

3 

IMFSK  CUR  EVENT  CLOCK 

0342 

DS 

2 

IMFSK  PAT  MASK 

C344 

DS 

3 

IMMSK  RAID  FEED 

0047 

DS 

2 

IKFSX  PAT  V AIU  IDOJ) 

CC49 

DS 

2 

Il'KSK  CYCJ.r.  RATE 

0043 

f 

DS 

3 

IUXSK  STOP  TIME 

CC4E 

9 

DS 

3 

IHOP  CUR  EVENT  CLOCK 

005  1 

DS 

2 

II  OP  FAT  INDEX 

0033 

DS 

3 

inot  used  ;on  COP 

COS  6 

DS 

2 

I DO?  P.'.T  LOCATION  (603) 

osr.8 

DS 

2 

I COP  CYCLE  PATE 

005  A 

DS 

3 

IDOP  STOP  TINS 

CC3D 

EUDADl 

DS 

1 

0C5E 

SAVi 

DS 

2 

CC03 

TEN 

ECO 

03 

11! ICH  I TIT.  ADR  CF  1 P/UNIT  SIN  TAB 

0204 

HUM 

ECU 

04 

I III GN  LYVL  A: Oil  OF  120/13  BIN  TALL 

* 

I 

*****  establish  running  sum-setup  addresses  etc 


t 


0060 

012330 

STEPOi 

LXI 

3#  b<‘  o 

ILO/D 

ADR 

OF  EASE  FTr:0 

n ' f ^ 

A J A > Ai/I 

t '*» 

:uz?:\z2 

♦ * n a 

A -> 

p.  — » V ’ • 4 * * • 

V vv  w 

b««4 

« ..V  • • 

i/  r*c*  c» 

1034 

trvi 

r»4 

CCSB 

CA 

t:vs* 

LOAX 

u 

00  »•? 

77 

MOV 

11/  A 

IMOVE 

r • 3" 

: r.vTs  so  sum 

c;  »a 

cc 

TLU 

C 

iapp 

::t 

• 'Z  AT  E 

* 

f .53 

DC 

lull 

L 

; au.i  t. 

•.  :.*.l  LATE 

*; 

CL'5C 

15 

DCP 

D 

... 

0260 

F2630D 

JP 

liVE 

tii  nit  " 

A' JO  i 

T.R  VWTF. 

0070 

213020 

LXI 

H/SYST3 

IST.V..T 

Ai:. 

. CF  SYS  TAELE 

» 
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*****  PETEPMIHE  IF  THIS  EFFECT  VI IL  BE  INCLUDED 


I 


0073 

54 

STEPI » 

HOV 

D,H 

0074 

5D 

MOV 

£*L 

0075 

225EC0 

SHLD 

SAV 

*SAVE  START  ADR  OF  THIS  EFFECT 

0078 

2C 

INK 

L 

t ADR  Mi* SB  CUR  EVENT 

0079 

2C 

IKR 

L 

* ADR  MS  3 C JR  EVE  JT 

0O7A 

012200 

LXI 

B*  SIM+2 

*AOR  MUR  OP  SIM  CLOCK 

037D 

OA 

LDAX 

B 

JLUAD  M3 3 SIM  CLOCK 

COTE 

ES 

CUP 

M 

* CCii PARS  WITH  USB  CUR  EVENT  CLOCK 

C07F 

C23DC0 

j:j2 

CTME 

0082 

CD 

DCR 

C 

* ADR  KM S3  SIM  CLOCK 

0033 

2D 

DCR 

L 

* ADR  MU S3  CUR  CLCCK 

0084 

0A 

LDAX 

B 

JL.OAD  t .'SB  SIM  CLCCK 

6035 

BE 

CUP 

M 

* COUPLE  WITH  I.MSD  CUR  EVENT  CLOC 

0036 

C2GD33 

JNZ 

CTME 

CC39 

CD 

DCR 

C 

* ADR  LSD  OF  SIM  CLOCK 

COCA 

CD 

ocn 

L 

* A'jll  LSD  CUR  LVCHT  CLOCK 

ee^s 

OA 

LDAX 

B 

ILOAD  LSD  SIM  CLOCK 

0F3C 

E3 

c;*p 

M 

*CC:ii*AEE  UJTH  LS3  C’JR  EVENT  CLOCK 

O08D 

D2990O 

CTME* 

j:jc 

STEP2 

*U0  CAR- SIM  GT  ■ CUR  EVENT 

; **** 

this 

EFFECT  MOT 

IMCLUDED-KILL  TIKE  TAKEN  IF  EFFEC 

***** 

VAS  INCLUDED 

0090 

3E3C 

mvi 

A#  6 0 

0092 

3D 

NOt 

DCR 

A 

0093 

F292O0 

JP 

NO 

0096 

C3A90I 

JMP 

OK 

;nov  check  IF  THIS  WAS  LAST  EFFEC 

# 

***** 

DETERMINE  IF  DOPPLER  EFFECT- IF  YES  GET  DOPPLER  IN 

***** 

o’n:Li 

.vise  go  er; 

J EH  ate  RANDOM  * FOR  INDEX  VAL 

0099 

EB 

1 

STEP2I 

XCUG 

1ST ALT  THIS  EFFECT  UAS  IN  D* E 

009  A 

2C 

ir.’R 

L 

IADR  t'MSB  CUR  EVT  MT 

CC93 

2C 

I!:R 

L 

« ton  r.sa  cur  r.v.*.  < * 

C29C 

2C 

IN  ft 

L 

* A'/A  LSD  PAT  MASK 

6 09  D 

4E 

kov 

C,H 

*1-0 ATI  LSD  i MASK 

Cr,9E 

2C 

inn 

L 

*A"'iR  CM  p/.v  hr« 

pn9F 

46 

MOV 

B*M 

*LOAD  MSB  r-.'T  MASK 

DC  AO 

78 

MOV 

A.,P 

COM 

EEFF 

XRI 

CFFil 

* CHECK  FOR  POP  EFFACT-MOT  FFH 

0OA3 

CAL2O0 

UZ 

STEP3 

tlVyi  FFH  THAN  GET  F.  UDCII  f INDEX 

9 

***** 

C.c.T  DOPLER  INDEX  / ’D  UPDATE 

C0A6 

03 

inx 

C 

*N.:XT  L'GP  IJ.TPX 

C0A7 

78 

MOV 

A»  B 

63»V» 

F.603 

r'.i 

UGH 

» RECYCLE  Pi'"*  V’s;  ” IT  HITS  JC24 

COAfc 

77 

MOV 

u,  a 

eo'D 

CD 

Den 

L 

*r  a LRu  i .•  ;>  x :;e  *>: 

03.*  C 

7 i 

MOV 

!/C 

*5  C .*  1.  .»  I *TK 

read 

2C 

rr. 

L 

o ; a->  r c 

CD  AS 

20 

urn 

I. 

.*  r a o:  .*  s o 

r6r«  a 

*•«  r» 
u . 

t *>l*f>* 

• ( 1 • • A»*H 

1 Hi 


1 


0082 

CC33 

0CI34 

eras 

00136 
CG37 
0 "23 
00D9 
0GDA 
0CR3 
8C3C 
O03F 
COCI 
C0C2 
CCC3 
0CC4 

oocs 
cr :c7 

CCC8 

0OC9 


OCCA 

c r.  cn 

oi  cc 
osoo 
OCCE 


ccsr 
a coo 
c:di 
CPD2 
0003 


cro* 

£''05 
Cv'DO 
C 17 
r .:A3 
r io 
f \v 
r d 
« . >c 
c ' ) 

W 


AVAIUSLE  TO  DB5  i? 

PEf!M| j Fiji  i y < ?:ppi  c j*'- 

*"  LU-liiU  fiWiliiKiwt, 


; 

1**4* 

RANDOM 

# IMDSX 

GENERATION  FOR  HOP  AND  MFSK 

2C 

# 

STEP3I 

IMR 

L 

I ADR  OF  MSB  OF  SEED 

5E 

MOV 

E/M 

JLOA.D  SEED  LSD 

2C 

XfJR 

L 

I ADR  NLS3  SLED 

56 

MOV 

D/M 

ILOAD  1..15D  OF  SEED 

2C 

IMR 

L 

I ADR  MSB  OF  SEED 

72 

MOV 

A*M 

E3 

XCHS 

l ADR  TO  D/E-VAL  TO  H/L 

29 

DAD 

H 

t DCtJPLS  LSD  AID  ML  S3 

OF 

ADC 

A 

jDcarLS  us:i  with  carry  from  dad 

EB 

XCHG 

JVAL  TO  D/S-ADR  DACK  TO  11/ L 

D2CA09 

JNC 

STORE 

J10  CA...1Y  TH.VI  MO  XOR  DEEDED 

EE30 

xni 

o:h 

I MS. 3 XOR 

47 

MOV 

B/  A 

I5..7E  MSB  IN  B 

AF 

XRA 

A 

IMMSn  MASK'D 

AA 

XRA 

D 

IWMSB  XOR 

57 

MOV 

D/  A 

IS  .73  in  d 

3233 

uvi 

A»  3311 

ilsj  us'jK 

A3 

XRA 

E 

I LSD  XOR 

SF 

MOV 

E/  A 

i save  lS3  in  e 

78 

MOV 

A>  B 

IH3B  PACK  TO  A 

# 

STORE  OFF  MEV 

RANDOM  NUMBER 

77 

i 

STORE* 

t:ov 

M/ A 

IS/.VE  MSB 

?.D 

DCS 

L 

72 

MOV 

11/  D 

/NEW  11:1  SB 

21) 

DCR 

L 

I 

73 

MOV 

M/E 

IN EU  LSB 

# 

J**** 

GET  Hit 

EX  FROM 

LSB  CF  RANDOM  0 USING  MASK  FROM  TH 

7B 

# 

MOV 

A/  E 

I LSD  STILL  IN  E 

At 

At  A 

C 

111  *01 1 IV  .5  IN  C FROM  STEP  2 

4F 

MOV 

C/  A 

I SETUP  13/ C Vi  Til  INDEX 

A>" 

XRA 

A 

HUGH  INDEX  VAL  IS  EERO 

47 

MOV 

P/  A 

M 

!***♦ 

GET  DVT 

E LOC  OF  FRE3  ftY  MUt.T  OF  INDEX  BY  5 AMD  AD 

»**!»* 

TO  THE 

EASE  AP 

:;:ss  of  the  iv.Rticji./r  fat teroi  tael 

2C 

# 

STSP4« 

I : : R 

L 

I ADR  CF  VO  ZB  OF  SEED 

CC 

ittn 

L 

JArn  OF  US  3 OF  SEED 

CC 

I till 

L 

; -.Dll  CF  LG  : PVT  LCC 

*•  r* 

MOV 

e#m 

JLSE  OF  2*32  ADR 

2C 

IMR 

i. 

tr  '~i  of  r.  i of  a dr 

t‘6 

MOV 

D/M 

IUSP  OF  IV  .*  PASS  ADR 

;■  i 

XC1I3 

IP.WE  ADR  .0  P./L-UR  ADR  TO  D/E 

i ? 

&;  i 

r % 
L t 

irro  i d :;  » vines  to  g it  act  adr 

CC 

DAD 

a 

r.9 

DAD 

D 

i/  # 

4-»  • 

r > * * ••  • • • * • i 

# r>4>>»  v#  4 * «.«  mv  •»  *•»  «•#*« 

147 


***** 

I 


BCD  ADDITION  ROUTINF.-SUM+PATTERN 


0OEC 

C3000I 

JMP 

COMT 

* JUMP  OVER  MONITOR  STACK  AREAIF0 

00E3 

COMTi 

ORG 

100:1 

0100 

!r23 

MV1 

E» SFRRO  * ADR  OF  RUNNING  SUM 

0102 

7£ 

MOV 

A*  M 

* LOAD  MSB  OF  PATTERN 

0103 

C6  00 

ADI 

0 

*AFFECT  SIGN  CONDITION 

01C5 

FA'J  1 0 1 

JM 

D5UB 

1S1C.’  BIT  SET-HAVE  NEC  FREQ 

01C3 

2D 

OCX 

H 

* GET  LS3  OF  PATTERN 

0 1*39 

2B 

DCX 

H 

0I0A 

20 

DCX 

H 

0100 

2B 

DCX 

K 

***** 

ADDITION  OF  LSB  BYTES 

01CC 

1A 

LDAX 

D 

* LOAD  LSB  OF  SUM 

0 1 CD 

6E 

ADC 

M 

* AND  LS3  OF  PAT  TO  IT 

01  OH 

27 

DA  A 

*BCD  ADJUST 

eiOK 

12 

STAX 

D 

* STORE  11ZU  LSB  OF  SUM 

* **** 

ML  S3 

ADDITION 

0110 

13 

IIJX 

D 

* ADR  OF  NLSB  OF  SUM 

0111 

23 

IMX 

H 

* ADR  MLS3  OF  PAT 

0112 

1A 

LDAX 

D 

*LOAD  NL3I1  OF  SUM 

0113 

02 

ADC 

M 

* ADD  TO  IT  PAT  ML SB 

0114 

27 

DAA 

JECU  ADJUST 

0115 

12 

STAX 

D 

* STORE  MEU  MLSB  OF  SUM 

***** 

UMLSB 

ADDITION 

0116 

13 

IMX 

D 

* ADR  KNLSS  BYTE 

PI  17 

£3 

IMX 

H 

* A'.n  i::.m.sb  of  pat 

0113 

IA 

LDAX 

D 

1L0AD  ::.,N..S3 

0119 

6S 

ADC 

M 

* add  x:i  ::  :lsb  of  pat 

0 1 1 A 

27 

DAA 

* BCD  ADJUST 

01  IB 

12 

STAX 

D 

* STORE  NEW  NHL SB  OF  SUM 

***** 

t.'  MLSB  ADDITION 

01  1C 

13 

IMX 

D 

* ADR  OF  t.MNLSB  OF  SUM 

01  ID 

23 

IMX 

K 

* ADR  OF  I :\’LS3  CF  PAT 

0 1 IE 

1A 

LDAX 

D 

*LOAU  I'M;  LSB  OF  SUM 

C11F 

IZ 

ADC 

M 

tr.o  to  :v? 

0123 

27 

DAA 

*rcn  ADJUST 

0121 

12 

STAX 

D 

* STORE  ril'.y  L’NLSD  CF  SUM 

***** 

USD  ADDITION 

0122 

13 

IMX 

D 

*adr  or  run  byte 

0123 

£3 

INX 

H 

J ADR  Or  PAT  BYTE 

0124 

1A 

LDAX 

D 

*LO/D  Sli.l  BYTE 

0123 

82 

ADC 

M 

* A’ <D  To  PAT 

0.126 

27 

DAA 

* BCD  ADJUST 

3127 

12 

• 

STAX 

D 

JMF.U  LSD  OF  SUM 

J 

f 

f * 

it* 

«r  * * * «*  r*** 

>«><»<  » W •» 

fs*  f »ir» 

V • • I ».<»«.»  VM  * 4*  1 iJ  V W W »»V  J 4 

0.128 

3EC6 

1 

MV  I 

A/ 6 

0 1 2.4 

30 

BCft 

A 

ci::i 

0 12E 

A 3 1 

C37 i.  3 1 

JP 

JMP 

l-  1 

STEPS 

K-^  hi’iUl?!- 

it,'  i • > I, 

/fa 

u'-“^  n,^ 


1 


DSUBt 


0131 

E67F 

AN  I 

07FH 

/ GST  RID  OF  SIGN  BIT  FROM 

PAT 

0133 

4F 

MOV 

C#  A 

/SAVE  MSB  OF  PAT 

0134 

20 

DCX 

H 

/ GET  ADR  OF  LS3  OF  PAT 

0J35 

23 

OCX 

H 

0136 

23 

DCX 

H 

0137 

23 

DCX 

H 

1LSB  ADR  IM  H«L 

1**** 

LSD  SUBTRACT I OM 

0133 

G699 

KV1 

D»  9521 

SVC.: D IM  GETTING  99  OR  100 

COMPL 

C13A 

37 

STC 

t INDICATE  NO  SORROW 

0J3B 

73 

MOV 

A*  B 

013C 

CEO0 

AC  I 

0 

i SETUP  FOR  99  OR  ICO  CCMP 

0 13S 

96 

SUD 

M 

199  OR  ICO  COMP  OF  PAT 

013F 

r.o 

XCHG 

IPAT  ADR  TC  D,E-SU:i  ADR  TO 

H»L 

0140 

86 

ADD 

M 

i ADD  SUM  TC  RESULT 

ei4i 

27 

DA  A 

;dcd  adjust  result 

0142 

E3 

XCHG 

I SUM  ADR  70  D,Z-PAT  ADR  TO 

H/L 

0143 

12 

STAX 

D 

JNEU  l.SD  SUM  DATE 

1 **** 

i:lsd 

SUBTRACT  IC:i 

0144 

13 

INX 

D 

I ADR  NLS3  OF  PAT 

0 145 

23 

INX 

H 

I ADR  OF  NLSS  OF  PAT 

0145 

73 

l*OV 

A#  B 

to::i  to  a 

0147 

CEC3 

AC  I 

0 

1 SETUP  FOR  ?•»  on  1C3  COMPL 

0149 

96 

SU3 

M 

199  OR  ICO  COMP  OF  PAT 

G 14  A 

C!3 

XCHG 

1PA:T  ADR  TC  Dt  E-SUM  ADR  TO 

H#L 

01 4B 

C6 

ADD 

M 

1 ADD  SUM  TO  RESULT 

0.14C 

27 

DAA 

/PCD  ADJUST 

314D 

E3 

xc::g 

I SUM  ADR  TO  P,E-PAT  TO  H»L 

0I4E 

12 

STAX 

D 

/NEW  NLSD  07  SUM 

/***♦ 

n:jlS3  subtraction 

014F 

13 

inx 

D 

;adr  of  ruLsn  or  sum 

0153 

23 

tux 

K 

/ADR  OF  NMLSB  OF  PAT 

0151 

78 

r:cv 

A»  B 

I LOAD  A VI TH  9521 

0152 

CSC;» 

AC  I 

0 

01s4 

96 

SUB 

M 

1 99  CR  1C"  CCIiP  OF  PAT 

0155 

ED 

XCHG 

/PAT  ADR  T9  B* E-SUM  ADR  TO 

H«L 

0156 

C6 

ADD 

M 

1 ADD  SUM  U/TR 

0157 

27 

daa 

/LCD  ADJUST 

0153 

E3 

XCHG 

/SUM  ADR  T«  D* E- PAT  ADR  TO 

H,L 

0159 

12 

STAX 

D 

/NEV  IJNLS3  C-F  SUN 

/•*** 

t"isn 

SUBTRACTION 

1 

<* 

13 

V.X 

n 

/ADR  OF  SUM  riS3 

0153 

23 

INX 

H 

/ ADR  OF  PAT  7 :SD 

015C 

73 

t;ov 

A»  B 

/LOAD  A VIS  . 59H 

CJ5D 

CCC3 

AC  I 

0 

0I5F 

96 

SUB 

H 

/ 99  ci;  ice  c'hfl  or  pat 

C 160 

L w 

xc::g 

/P."i  A 7-  ‘J>  f i,R  TO 

lf#L 

0161 

C5 

ADD 

M 

/ADO  SUM  7 » TO  RESULT 

o;o<s 

it 

Wl\H 

» - »»U  c O «/  W # 

3::3 

fb 

XUH(i 

> 1 • i AT  4 / i»#%  IU 

I 

0iS4 

12 

STAX 

D 

i k • • . W ( . J '•  » 

I 

i 
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-zk 


k 


; 

r 


COPY  WW"!?  Tn  " SSI3  K8 

• - VJ 
tj  tf  ; hm 


iV*' 

: \ i 

* Li  i »r,  4 j 


r;,ii  / [ 

I f Ik. 


::l—.  t 


t**«*  MSB  SUBTRACTION 


• 165 

13 

INX 

D 

1 ADR  MSB  OF  SUM 

• 166 

83 

I NX 

H 

1 ADR  MSB  OF  FAT 

• 167 

73 

MOV 

A,B 

ILOAD  A WITH  99H 

• 168 

CE00 

ACI 

0 

• 16A 

91 

SUB 

C 

I PAT  MSB  WITHOUT  SIGN  SAVED  IN  C 

0 16B 

EB 

XCHG 

I PAT  ADR  TO  D* E-SJH  ADR  TO  H«L 

0I6C 

86 

ADD 

M 

I ADD  III  SUM  BYTE 

• 16  D 

27 

DAA 

/ BCD  ADJUST 

• 16E 

EB 

XCHG 

1 SUM  ADR  TO  D, E-PAT  ADR  TO  H#L 

016F 

12 

STAX 

D 

1NEW  MSB  OF  SUM 

I 

I ****  UPDATE  CURRENT  EVENT  CLOCK  WITH  CYCLE  VALUE 
» 


0170 

2A5E00 

STEPS 1 

LMLD 

SAV 

1 PUT  ADR  OF  START  THIS  EFFECT  IN 

0173 

55 

MOV 

D»L 

i save  low  /dr  in  d 

0174 

7D 

MOV 

A*  L 

1 

0170 

COO  A 

ADI 

10 

1 ADDING  8 GETS  ADR  OF  CYCLE  RATE 

0177 

6F 

MOV 

L»  A 

1 POINT  H#L  AT  CYCLE  RATE 

0J78 

4E 

MOV 

C«M 

ILOAD  LSD  OF  CYCLE  RATE 

0179 

2C 

IMR 

L 

It  DR  CF  MS3  OF  CYCLE  RATE 

017A 

46 

MOV 

B#M 

/LOAD  B VI YH  MSB  OF  CYCLE  RATE 

0.17B 

6A 

MOV 

L»  D 

/POINT  H,L  AT  CURRENT  EVENT  CLOCK 

017C 

OE 

MOV 

E/M 

/LOAD  LSD  OF  CUR  EVENT 

0I7D 

2C 

1HR 

L 

/ADR  OF  N MSB  OF  CUR  CLOCK 

017E 

56 

MOV 

D*M 

/LOAD  NMSB  OF  CUR  EVENT  CLOCK 

017F 

2C 

IMR 

L 

/ADR  OF  MS J OF  CUR  EVENT 

0130 

AF 

XRA 

A 

/ZERO  A 

01C1 

EB 

XCHG 

/ ADR  TO  D,  T>LS3,N::SB  OF  CUR  EV  TO 

0182 

C9 

DAD 

B 

/UPDATE  LS "i  AND  t.JSB  OF  CUR  EVENT 

0133 

EB 

XCHG 

/ADR  MSB  TO  H#L-V'L  TO  D,E 

0184 

CE 

ADC 

M 

/ADD  C+USB  CUR  EVFNT+ CARRY 

0185 

77 

MOV 

M,A 

/update  msr  of  cur  event  clock 

0186 

2D 

DCR 

L 

/ADR  NMSB  OF  CUR  EV  NT 

01C7 

72 

MOV 

M#  D 

/UPDATE  1’MSD  CUR  EVENT 

0138 

CD 

DCR 

L 

/ADR  OF  LS.3 

0189 

73 

MOV 

M,E 

/update  lsj  cun  event  clock 

018  A 

47 

MOV 

B.  A 

/SAVE  MSB  CUR  EVENT 

0!3F> 

40 

MOV 

C»L 

ZS/.VF.  ADR  L3B  CUR  EVENT 

1**** 

COMPARE 

STOP 

CLOCK  WITH  CU  VENT  EVEiT  CL0CK-IF  Tl 

/*<•** 

TO  END 

THIS  EFFECT  SET  CUR  .PIT  r.VKIT  CLOCK  TO  MAX 

0 ICC 

3E0E 

I 

MV  I 

A,  14 

/OFFSET  TO  EFFECT  STOP 

013E 

C5 

ADD 

L 

/ L HAS  START  TIP'S  EFFECT 

OltiF 

6F 

MOV 

L#  A 

ZKK.il  H#L  Af  E.VECf  SiOFMSB 

0190 

78 

MOV 

A*  U 

ZiiSli  CUK  CLOCK  SAVi-U  III  U 

019  1 

EE 

c:jp 

M 

/CCMPA-RE  MSB  CUR  TO  STOP 

0192 

CC9E01 

J’12 

CLC 

8195 

7P 

MOV 

f't  E 

/E  i!A.$  lv.so  of  cur  event 

0196 

CD 

DCR 

L 

ZATR  I .ISP  ...•  STOP  CLOCK 

C tS* 7 

r.z 

CMP 

M 

/ccnfa.:..:  p cun  to  stop 

r • r» « 

A'  A04  | 

.r  \ y 

r?  r 

1 ' 1 . 

*2 

• f 

» r 

f*  ^ i -*>  it  ri 

g:?c 

r 2 

DCR 

t 

/ / •»  i l k)  1 C • ’ 1/  • • . 

( i :*  U 

ns 

C-’.-r 

M 

/coin . . : i . . c.-  v ) r.to:» 

* • * 

i . • ■ ? i 

i.\r  t 

iso 

i . c i.:  {.r  . v ?:* 

I 


'■ 

1 

; 


i 


1 


i 


; ' 


| 

i 


1 


I 

/***♦  SET  CUR  EVFMT  CLUCK  FOR  THIS  EFFECT  TO  MAX 


eiAi 

69 

MOV 

L,  C 

/ APR  LSB  CUR  EVENT  CLOCK  TO  L 

01A2 

3EFF 

MV  I 

A>  0FFH 

01A4 

77 

MOV 

M#  A 

1MAX  LSB  BYTE 

01  AS 

2C 

IMR 

L 

;adr  nmsb  cur  event 

01A6 

77 

MOV 

m,a 

;MAX  HiSSB 

01A7 

2C 

INR 

L 

/ ADR  MSD  OF  CUR  EVENT 

0 1 AS 

77 

f 

MOV 

M,  A 

/MA<  MSB 

9 

1 **** 
f 

CHECK 

FOR  MORE  EFFECTS 

01A9 

3A5E00 

9 

OKI 

LDA 

5EH 

/LOAD  LOV  BYTE  OF  STAJtT  ADn  THIS 

01  AC 

C 5 OF 

ADI 

15 

/ GET  ADR  OF  START  NEXT  EFFECT 

0IAE 

FESD 

CFI 

5DH 

/ 5DH  IS  OUT  OF  EFFECT  TABLE 

0.IDC5 

6F 

MOV 

l,a 

0 1BI 

C273C0 

• 

JMZ 

STEPI 

1 NOT  ECUAL  TO  SDH  THAN  HAVE  ANOTH 

9 

1**  ** 

HAVE 

CONSIDERED 

ALL  THREE  EFFECTS- CONVERT  VALUE  1 

!«*** 

• 

TO  BIMARY  TV’O  BYTE  FORM  OF  IMTELL 

0IB4 

112000 

J 

LXI 

V,  SFREO 

/ADR  OF  LSD  OF  SUM 

0IB7 

1A 

LDAX 

D 

/LOAD  LSB  CF  SUM 

eirs 

2603 

MV  I 

H,T£H 

/ADR  OF  TUN /UN  IT  CONVERSION  TAB 

0 1 BA 

6F 

MOV 

Lt  A 

/ V ,".L  OF  HILL  IO/UHIT  VAL  IS  INDEX 

o i r b 

42 

MOV 

C,tl 

/SAVE  DIM  L'CJIV  OF  MILL  IS/UNITS 

01DC 

1C 

INR 

E 

/ADR  OF  t.’LU  OF  SUM 

01  ED 

IA 

LDAX 

D 

/LOAD  HERTZ  UNiT/MILLI  ICO  BYTE 

0 JBE 

47 

MOV 

B,  A 

1 SAVE  MLS J 

0 IBF 

E60F 

AN1 

0FH 

/MASK  OFF  KURTZ  UNITS  VAL 

01CI 

07 

RLC 

/ DOUBLE  IF:  V At.  TO  CUT  TAR  OFFSET 

01CC 

C69A 

ADI 

154 

/ADD  IN  EA.-U  OF  ICO  BIN  TABLE 

01C4 

6F 

MOV 

L*  A 

/ POINT  Kt L AT  ICO  DIM  F.C'JIV 

C1CS 

SS 

MOV 

E/M 

/LOAD  LOU  I TIE  OF  iilLI  122  DIN  EQ 

0 1C6 

23 

INX 

H 

0IC7 

56 

MOV 

D#M 

/HIGH  VAL  CF  MILL1  123  BIN  ECUIV 

01C8 

69 

MOV 

L,C 

/LOAiD  MILL:  10/UilITS  VAL 

61C? 

£620 

MV  I 

H»  0 

0 ICt) 

19 

DaB 

D 

/MILL!  viii  LOUIV  IN  Ht  L 

!♦*** 

• 

MILLIHERTZ  OUTIUT 

01CC 

7C 

9 

MOV 

At  H 

/HIGH  BYTE  VAL 

0 1CD 

CF 

CM  A 

3 JCF. 

D3C9 

OUT 

9 

/OUTPUT  III  r :i  1.HYTF.  VAJ. 

C!D? 

7P 

MOV 

At-L 

/LAA*o  « O’.i  ftp-  \if\ 

0JD! 

?F 

CMA 

0 IDS 

D3C8 

OUT 

8 

/OUTPUT  LOV  BYTE  VAL 

151 


copy  m\m  to  nos  does  m 

■ pbs?it  ri'iiy  leople 


■n  <y .1 

\ . A i 1 


’ 


: 


1 


JM** 

f 

HERTZ 

CONVERSION 

0ID4 

9 

78 

MOV 

A/B 

JHLSB  OF  SUM  SAVED  IN  B 

0 IDS 

IF 

RAR 

* SHIFT  HIGH  4 BITS  TO  LOV  4 BITS 

0 JDS 

IF 

rar 

01D7 

JF 

RAR 

0JC3 

IF 

RAR 

0 ID9 

E60F 

AMI 

0FH 

IMASK  OUT  HIGH  4 BITS 

0 JOB 

4F 

MOV 

C»  A 

JSA7E  HERTZ  UNITS  VAL 

01  DC 

1 12A00 

LXI 

D/  SFR2Q+2  JADR  OF  HERTZ  1 03/  10  BYTE 

0JDF 

IA 

LDAX 

D 

JLOAD  HERTZ  BCD  100/10  BYTE 

0IE0 

6F 

MOV 

L,  A 

0.IE  1 

2600 

MV  I 

H/  0 

01E3 

£9 

DAD 

H 

J DOUBLE  ICO/ 10  VAL  TO  GET  BIN  TAB 

0JE4 

1 IC004 

LXI 

D> C40CH 

1 ADR  OF  ICO/ 10  BIN  EOUIV  TABLE 

0 1E7 

19 

DAD 

D 

J ACTUAL  ADR  OF  HERTZ  100/10  BIN  V 

0 JE8 

5E 

MOV 

E/M 

JLOAD  LOU  DIN  ECU IV 

0 JE9 

23 

IMX 

K 

JADR  OF  HIGH  DIM  ECUIV 

0 JEA 

56 

*20  V 

D/M 

JLOAD  HIGH  BINARY  EOUIV 

01EB 

69 

MOV 

L/C 

JLOAD  HERTZ  UNITS 

01EC 

2600 

MV  I 

11/ 0 

0 1EE 

19 

DAD 

D 

JHERTZ  BIN  ECUIV  IN  H/L 

• 

HERTZ 

OUTPUT 

01EF 

9 

7C 

MOV 

A/ 11 

JHIGH  EYTE  VAL 

0IFCJ 

2F 

CHA 

0JF1 

D30B 

OUT 

11 

JOUTFUT  HIGH  BYTE  VAL 

0 JF3 

7D 

MOV 

A/L 

JLOU  BYTE  VAL 

0JF4 

2F 

CM  A 

0IFS 

D30A 

OUT 

10 

J OUT PUT  LOU  BYTE  VAL 

***** 

• 

K1LLIHERTZ  CONVERSION 

0IF7 

9 

112B00 

LXI 

D/ SFREO+3  JADR  OF  fJMSB  OF  SUM 

0 IFA 

1A 

LDAX 

D 

JLO *D  KHERTZ  IJ/UNIT  BCD  BYTE 

0JFB 

2603 

MV  I 

H/TEN 

JADR  TfcN/U  JIT  BIN  ECUIV  TABLE 

0 1FD 

6F 

MOV 

L/A 

J BCD  lO/UMIT  VAL  IS  TABLE  INDEX 

oirE 

4E 

MOV 

C/M 

J SAVE  BIN  Z UIV  IN  C 

0 IFF 

1C 

124  R 

E 

JADR  OF  r?S:i  CF  SUN 

02C0 

IA 

LDAX 

D 

JLOAD  K15ES.TZ  ICC/MEGA  BYTE 

0201 

47 

MOV 

B/A 

JSAVK  FOR  NEG.A  CONVERSION 

0202 

E60F 

AMI 

CFH 

jmasx  of f :::ga  bits 

02G4 

C7 

RLC 

JDCUBI.E  TO  GET  1 CO  TAD  INDEX 

0205 

C69A 

ADI 

154 

JADD  TABLE  BASE 

0207 

6F 

MOV 

L/A 

02O3 

52 

MOV 

C/M 

JLOV  DIN  ECUIV  OK  KHERTZ  100 

02O9 

23 

IMX 

H 

023A 

56 

MOV 

D/M 

JHIGH  BIN  EfcUXV 

G£CD 

69 

MOV 

L/C 

iLC/w  iv/Iji>IT3  LI H lC'Ja V 

OtCC 

26C3 

hv  I 

K/G 

02fcE 

19 

DAD 

D 

1 KHERTZ  BX!J  ECUIV 

COPY  AYAiLIELF  10 1. 0 

lr  V mm!t  ' 

EOT 

PL"*!!  fain  im.iL , 

152 


*****  KHERTZ  OUTPUT 
I 


020F 

7C 

MOV 

ArH 

0210 

2F 

CMA 

021  1 

D30D 

OUT 

13 

I OUTPUT  HIGH  BYTE  VAL 

0213 

70 

KOV 

A»L 

/LOAD  LOW  BYTE  VAL 

0214 

2F 

CMA 

0215 

D30C 

OUT 

12 

t OUTPUT  LOU  BYTE  VAL 

;**«* 

• 

MEGA 

HERTZ  CONVERSION  AM D OUTPUT 

021 T 

78 

9 

MOV 

A»8 

IMEGA  BYTE  SAVED  IN  B 

02J8 

iF 

RAR 

1 SHI FT  TO  LOW  4 BITS 

0219 

IF 

RAR 

02 1A 

IF 

RAR 

02  IB 

IF 

RAR 

02 1C 

E6  CF 

*211 

0FH 

1MASK  OFF  HIGH  4 BITS 

02  IE 

2F 

CMA 

02  IF 

D3SE 

OUT 

14 

I OUTPUT  MEGA  HERTZ 

IMM 

t 

SEND 

LOAD  PULSE 

0221 

3EFF 

# 

MV  I 

A#0FFH 

;lov  pulse  VAL 

0223 

DCCF 

OUT 

15 

0225 

32FE 

MV1 

0FEH 

1HIGH  PULSE  VAL* BIN  1 

0227 

D3CF 

t 

OUT 

15 

9 

/♦*** 

f 

UPDATE  SIMULATION  CLOCK 

0229 

212000 

9 

LXI 

H»  SIM 

t ADR  OF  SIMULATION  CLOCK 

022C 

5E 

KOV 

E#M 

1LS3  OF  SIM  CLOCK 

C22D 

2C 

INR 

L 

IAOR  OF  MM S3 

022E 

56 

MOV 

D#M 

/LOAD  I .'MSB 

022F 

2C 

INR 

L 

l ADR  OF  MSB 

0230 

AF 

XRA 

A 

I ZERO  A 

0231 

EB 

XCHG 

I ADR  TO  D,E«VAL  TO  H#L 

0232 

010100 

LXI 

B,  1 

ITJT  A 1 III  F,C  PAIR 

0235 

09 

DAO 

B 

) E'JMP  SIM  LS3  AMD  MM  SB 

G236 

EB 

XCHG 

1 ADR  TO  K,L-VA1.  TO  D,Z 

0237 

8E 

ADC 

M 

J S l M MS r+ C AERY* Z ERO 

0238 

77 

MOV 

M,  A 

1UPDATE  SIM  MS3 

0239 

2D 

DCR 

L 

1 ADR  OF  MM3 3 

023A 

72 

MOV 

M#D 

/UPDATE  MU33  OF  SIM  CLOCK 

023B 

20 

DCR 

L 

t ADR  OF  LS  3 

023C 

73 

MOV 

M#  E 

/UPDATE  SIM  LSB 

COPY  AVA!UBl£  TO  TIDE  KB  HOT 
PKSHT  FULLY  iHELE  F8K»fcl*i 


153 


J 


1**4* 

• 

COMPARE 

SIM  CLOCK  WITH  SIM  STOP  FOR  END  SIMULATIO 

023D 

2E2F 

3 

MV  1 

L* STOP* 2 JLOAD  ADR  OF  STOP  CLOCK 

023F 

EE 

CMP 

M 

1 COM PARE  MSB  OF  SIM  CLOCK  TO  STOP 

0240 

C24C02 

JNZ 

CHSTP 

0243 

2D 

OCR 

L 

J ADR  OF  NMS8  OF  STOP  CLOCK 

0244 

ta 

MOV 

A*D 

jload  i::;sa  of  sim  clock 

0245 

BE 

CMP 

M 

J COMPARE  WITH  KMSD  OF  STOP  CLOCK 

0246 

C24C02 

JNZ 

CHSTP 

024$ 

2D 

DCR 

L 

I ADR  LSB  OF  STOP  CLOCK 

024 A 

7B 

MOV 

A»  E 

JLOAD  LSB  OF  SIM  CLOCK 

024B 

BE 

CMP 

M 

J COMPARE  VI TH  LSB  STOP  CLOCK 

024C 

DA6000 

CHSTP* 

JC 

STEP0 

JCO  ANOTHER  CYCLE 

024F 

C33060 

JMP 

00H 

J RETURN  TO  THE  MONITOR 

154 


READER  PROGRAM 


m 


This  program  is  used  to  input  and  store  the  system  parameter  tables  and  pattern 
tables  output  from  the  PDP-11.  Input  is  performed  by  repetitively  testing  the  status  of 
input  port  5 until  the  status  indicates  that  a byte  has  been  received.  The  byte  sent  from 
the  PDP-11  is  then  received  via  input  port  4 and  stored  in  memory.  To  insure  that  the 
bate  has  been  received  properly,  the  program  then  transmits  the  byte  received  back  to 
the  PDP-11  that  compares  it  with  what  had  been  sent. 

The  program  uses  a predefined  sequence  of  byte  transfers  to  determine  where  in 
memory  to  store  the  data  it  receives.  The  high  byte  address  of  the  starting  location  is 
sent  and  is  immediately  followed  by  the  low  byte  address  and  a block  count.  Data  is  then 
input  and  stored  at  consecutive  memory  locations  until  the  byte  block  count  is  satisfied. 

A zero  block  count  received  causes  the  real-time  mode  to  begin. 


•***  SYSTEM  TABLES /PATTERN  TABLES  INPUT  ROUTINE 


r 


THREE  initial  reads  are  used  to  IDENTIFY  HIGH  BYT 
LOAD  AD R ESS,  1.0 V BYTE  LOAD  ADDRESS,  AND  MUMPER  OF 
BYTES  IN  TP  TSFF.R.THS  NUMBER  OF  BYTES  SPECIFIED  A 
THEM  READ  IND  STORED  ACCORDING  TO  DYTF.  COUNT  AMD 

start  h.'moky  address  given. each  byte  head  from  th 

IS  ECHOED  BACK  FOR  VERIFICATION  PURPOSES. 


0852 

ORG 

27  CH 

0270 

CD0E02 

ST* 

Call 

IN  FUT 

1 INPUT  HIGH  LOAD  ADR 

0273 

62 

MOV 

K.D 

J INPUT  IS  IN  D 

027A 

CD3E02 

CALL 

IN  PUT 

; INPUT  LOU  LOAD  ADR 

0277 

6A 

NOV 

L,D 

j:;,l  no-j  point  to  start  adr  for 

0273 

CD3E02 

CALL 

IN  FUT 

1 GET  NUMBER  OF  BYTES  IN  BLOCK 

0273 

A 2 

MOV 

B,D 

IB  WILL  BE  LOO?  REG 

027C 

73 

MOV 

A,  B 

0271) 

FE03 

CPI 

0 

I CHECH  FOR  ENDC0  TLOCK  COUNT) 

027K 

CAA502 

JZ 

LOADX 

IGO  START  REAL  TINE  PROGRAM 

1 

***** 

INPUT 

BLOCK  OF 

BYTES 

028  2 

CD3E02 

CHIN* 

CALL 

INPUT 

I INPUT  BYTE 

0205 

72 

MOV 

M#  D 

I STORE  IN  MEMORY 

02G6 

23 

I NX 

H 

IMPACT  MEMORY  ADR  TO  LOAD 

0237 

05 

DCR 

B 

1 DECREMENT  r LOCK  COUNT 

02G8 

C2C232 

JMZ 

CHIN 

J NOT  ZERO  THEM  HAVE  ANOTHER  CHAR 

0263 

C37C32 

JHP 

ST 

I GET  NEXT  LOAD  ADR# ETC 

***** 

BYTE 

INPUT  AMD 

ECHO  ROUTINE 

0G35 

j 

SPOHT 

ECU 

5 

I STATUS  FORT 

OZ  fJA 

DATAP 

ECU 

4 

I DAT A IN /OUT  PORT 

023E 

DECS 

INPUT* 

IN 

SPORT 

I INPUT  STATUS 

02?  0 

ECO  I 

AMI 

0 IH 

I CHECK  INPUT  READY 

Of.?  2 

C23K02 

JMZ 

INPUT 

1 BIT  f -1  ?.- ~M  INPUT  POT  THERE 

0295 

DMO  A 

III 

DATAP 

I INPUT  BYTE  FROM  THE  11 

G29  7 

4F 

MOV 

C#  A 

iSAVi;  COMPEL  -HTED  VERSION 

C~'5o 

2 r 

Ci  i A 

I GET  RBr.L  V...:6X0N  Of  INPUT  BYTE 

0299 

57 

hOV 

D#  A 

1 BYTE  ID  NET URN ED  IN  D 

***** 

ECHO 

BYTE  RECEIVED  BACK  TO  THE  I 1 

029  A 

D333 

ECHO  : 

IN 

SPORT 

I GET  "MIT  STATUS 

029  C 

F604 

AMI 

04  H 

I CHECK  IF  READY 

H'.gr 

C.t  O At  lf> 

J'J? 

ECHO 

^ r*  | T*"*  *«t  ♦‘^T  At\y  T(J  c r*MT> 

n^M 

7<J 

M.iv 

A,  C 

r rv.Mri  t*  — om 

02A2 

D334 

OUT 

data? 

I CUT  AIT  BYTE  F.i.CK  TO  li 

02A4 

C9 

RET 

iP.PlU  1 

/***♦ 

zr.ro 

byte  ccu;r 

F.Ec.:iVEu»LO.*.ni:;G  cc:;e- start  rtn 

02,'S 

Cr.;EC2 

LOADJCl 

CALL 

INPUT 

; at  a:d  etc.)  r"::rr  byte 

02  A A 

CSOJ.'l'J 

AMP 

STEP!? 

1ST  ART  REAL  TIME  .NODE 

1 . Jj 

t.<u 

158 
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LOADER  PROGRAM 


This  program  is  used  to  load  the  real-time  program  into  RAM  from  its  location 
in  ROM.  The  program  when  executed  will  transfer  the  contents  of  locations  2C200 
through  3 IFF  to  RAM  beginning  at  location  zero  and  cause  program  execution  of  the 
system  tables,  input  routine. 

This  program  is  also  located  in  ROM  and  is  intended  to  act  as  a bootstrap 
loader  of  the  real-time  run. 


1 59 


V 


INITIALIZE 
START  RAM 
LOC AND 
START  ROM 


r 


MOVE 
INSTRUCT 
BYTE  FROM 
ROM  TO  RAM 

I XI 


INCREMENT 
RAM  & ROM 
ADR 


JUMP  TO 
READER 
PROGRAM 


l(iO 


KBAND  REAL  TIME  PROGRAM  LOADER 

THE  PURPOSE  OF  THIS  PROGRAM  IS  TO  MOVE  THE  KBAND 
FROM  ROM  TO  RAM  AND  INITIATE  THE  TABLE  READ  PART 


THE  PROGRAM. 


0200 

/ 

ORG 

2B00H 

0870 

RDR 

ECU 

270H 

0030 

RAM 

EOU 

0 

2CC0 

ROM 

• 

ECU 

2C0OH 

2800 

110300 

J 

LX1 

d>  ram 

2803 

21032C 

LX  I 

H*  ROM 

2806 

7E 

IMSTi 

MOV 

A»M 

2807 

12 

STAX 

D 

2803 

23 

INX 

H 

2839 

13 

INX 

D 

2D3A 

7 A 

MOV 

A>  D 

220D 

FEOS 

CPI 

C6H 

2END 

C2062B 

JN2 

INST 

2B  i 3 

0000 

037002 

JHP 

END 

RDR 

I ROM  ADR  FOR  THIS  PROGRAM 
/ADR  OF  TA3LE  INPUT  ROUTINE 
/START,  ADR  IN  R.\M  TO  LOAD 
/START  ADR  OF  RTP  IN  ROM 

/EEGIN  ADR  TO  LOAD 

/ADR  IN  ROM  TO  BEGIN  LOAD  FROM 

JLOrD  A UITH  INSTRUCT  BYTE 

/HOVE  INTO  P.AM 

INEXT  ROM  ADR 

IN  "NT  RAM  ADR 

/LOAD  RAM  HIGH  ADS  BYTE 

/FINISHED  LOAD  AT  06S0H 

/JUMP  TO  TABLE  LOAD  ROUTINE 


V 
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